home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / +look_here_1st!+ / reader_requests / alienbreed3d2 / newnewrender.s < prev    next >
Text File  |  1997-11-28  |  58KB  |  4,132 lines
  1.  
  2. * the 'Hello World' program in 68000 Assembler
  3. * the C version can be found in the Intuition manual
  4.  
  5. * this source code (C) HiSoft 1992 All Rights Reserved
  6.  
  7. * for Devpac Amiga Version 2 the following symbols were changed
  8. * to avoid clashes with the new include files:
  9. * Screen->MyScreen, NewScreen->MyNewScreen
  10. * Window->MyWindow, NewWindow->MyNewWindow
  11.  
  12.     opt    c+,d+
  13.  
  14.     include    workbench:utilities/devpac/system            use pre-assembled header
  15.     include    exec/exec_lib.i
  16.     include    intuition/intuition.i
  17.     include    intuition/intuition_lib.i
  18.     include    graphics/graphics_lib.i
  19.     include    graphics/text.i
  20.  
  21. INTUITION_REV    equ    31        v1.1
  22. GRAPHICS_REV    equ    31        v1.1
  23.  
  24. * Open the intuition library
  25.  
  26.     moveq    #100,d4            default error return code
  27.  
  28.     moveq    #INTUITION_REV,d0    version
  29.     lea    int_name(pc),a1
  30.     CALLEXEC OpenLibrary
  31.     tst.l    d0
  32.     beq    exit_false        if failed then quit
  33.     move.l    d0,_IntuitionBase    else save the pointer
  34.  
  35.     moveq    #GRAPHICS_REV,d0
  36.     lea    graf_name(pc),a1
  37.     CALLEXEC OpenLibrary
  38.     tst.l    d0
  39. ;    beq    exit_closeint        if failed then close Int, exit
  40.     move.l    d0,_GfxBase
  41.     lea    MyNewScreen(pc),a0
  42.     CALLINT    OpenScreen        open a screen
  43.     tst.l    d0
  44. ;    beq    exit_closeall        if failed the close both, exit
  45.     move.l    d0,MyScreen
  46.  
  47.     move.l MyScreen,a0
  48.     lea sc_BitMap(a0),a0
  49.     lea bm_Planes(a0),a0
  50.  
  51.     
  52.     move.l #RAWSCRN,(a0)
  53.     move.l #RAWSCRN+10240,4(a0)
  54.     move.l #RAWSCRN+10240*2,8(a0)
  55.     move.l #RAWSCRN+10240*3,12(a0)
  56.     move.l #RAWSCRN+10240*4,16(a0)
  57.     move.l #RAWSCRN+10240*5,20(a0)
  58.     move.l #RAWSCRN+10240*6,24(a0)
  59.     move.l #RAWSCRN+10240*7,28(a0)
  60.  
  61. * now initialise a NewWindow structure. This is normally easier to
  62. * do with dc.w/dc.l statement etc, but for comparison with the C
  63. * version we do it like this
  64.     lea    MyNewWindow(pc),a0    good place to start
  65.     move.w    #20,nw_LeftEdge(a0)
  66.     move.w    #20,nw_TopEdge(a0)
  67.     move.w    #300,nw_Width(a0)
  68.     move.w    #100,nw_Height(a0)
  69.     move.b    #0,nw_DetailPen(a0)
  70.     move.b    #1,nw_BlockPen(a0)
  71.     move.l    #window_title,nw_Title(a0)
  72. _temp    set    WINDOWCLOSE!SMART_REFRESH!ACTIVATE!WINDOWSIZING
  73.     move.l    #_temp!WINDOWDRAG!WINDOWDEPTH,nw_Flags(a0)
  74.     move.l    #CLOSEWINDOW,nw_IDCMPFlags(a0)
  75.     move.w    #CUSTOMSCREEN,nw_Type(a0)
  76.     clr.l    nw_FirstGadget(a0)
  77.     clr.l    nw_CheckMark(a0)
  78.     move.l    MyScreen(pc),nw_Screen(a0)
  79.     clr.l    nw_BitMap(a0)
  80.     move.w    #100,nw_MinWidth(a0)
  81.     move.w    #25,nw_MinHeight(a0)
  82.     move.w    #640,nw_MaxWidth(a0)
  83.     move.w    #200,nw_MaxHeight(a0)
  84.  
  85. * thats it set up, now open the window (a0=NewWindow already)
  86. ;    CALLINT    OpenWindow
  87. ;    tst.l    d0
  88. ;    beq    exit_closescr            if failed
  89. ;    move.l    d0,MyWindow            save it
  90. ;
  91. ;    move.l    d0,a1                window
  92. ;    move.l    wd_RPort(a1),a1            rastport
  93. ;    moveq    #20,d0                X
  94. ;    moveq    #20,d1                Y
  95. ;    CALLGRAF Move                move the cursor
  96. ;
  97. ;    move.l    MyWindow(pc),a0
  98. ;    move.l    wd_RPort(a0),a1            rastport
  99. ;    lea    hello_message(pc),a0
  100. ;    moveq    #11,d0
  101. ;    CALLGRAF Text                print something
  102. ;
  103. ;    move.l    MyWindow(pc),a0
  104. ;    move.l    wd_UserPort(a0),a0
  105. ;    move.b    MP_SIGBIT(a0),d1        (misprint in manual)
  106. ;    moveq    #0,d0
  107. ;    bset    d1,d0                do a shift
  108. ;    CALLEXEC Wait
  109.  
  110. ;    moveq    #0,d4                return code
  111.  
  112. * various exit routines that do tidying up, given a return code in d4
  113.  
  114. ;    move.l    MyWindow(pc),a0
  115. ;    CALLINT CloseWindow
  116.  
  117. ;exit_closescr
  118. ;    move.l    MyScreen(pc),a0
  119. ;    CALLINT CloseScreen
  120.  
  121. ;exit_closeall
  122. ;    move.l    _GfxBase(pc),a1
  123. ;    CALLEXEC CloseLibrary
  124.  
  125. ;exit_closeint
  126. ;    move.l    _IntuitionBase(pc),a1
  127. ;    CALLEXEC CloseLibrary
  128.  
  129. ;done:
  130. ;    bra done
  131.  
  132.  move.l #PALETTEBIT,a0
  133.  move.l #COPIEDPAL+4,a1
  134.  move.w #255,d0
  135.  
  136. copydown:
  137.  move.b 1(a0),(a1)
  138.  move.b 3(a0),4(a1)
  139.  move.b 5(a0),8(a1)
  140.  add.w #6,a0
  141.  add.w #12,a1
  142.  dbra d0,copydown
  143.  
  144.  move.w #256,COPIEDPAL
  145.  move.w #0,COPIEDPAL+2
  146. LOOKFORME:
  147.  move.l MyScreen,a0
  148.  lea sc_ViewPort(a0),a0
  149.  move.l #COPIEDPAL,a1
  150.  move.l _GfxBase,a6
  151.  jsr -$372(a6)
  152.  
  153.  move.l MyScreen,a4
  154.  move.w sc_MouseX(a4),d0
  155.  move.w sc_MouseY(a4),d1
  156.  move.w d0,OLDXM
  157.  move.w d1,OLDYM
  158.     
  159.  move.l 4.w,a6
  160.  move.l #doslibname,a1
  161.  moveq #0,d0
  162.  jsr -552(a6)
  163.  move.l d0,doslib
  164.  
  165.  move.l doslib,a6
  166.  move.l #OBJNAME,d1
  167.  move.l #1005,d2
  168.  jsr -30(a6)
  169.  move.l d0,ROTATEDPTS
  170.  
  171.  move.l doslib,a6
  172.  move.l d0,d1
  173.  move.l #POLYGONDATA,d2
  174.  move.l #30000,d3
  175.  jsr -42(a6)
  176.  
  177.  move.l doslib,a6
  178.  move.l ROTATEDPTS,d1
  179.  jsr -36(a6)
  180.  
  181.     
  182. loop:
  183.  
  184.  move.l #POLYGONDATA,a3
  185.  move.w (a3)+,SORTIT
  186.  move.l a3,START_OF_OBJECT
  187.     
  188.  move.w (a3)+,num_points
  189.  move.w (a3)+,d6
  190.  move.w d6,num_frames
  191.  move.l a3,POINTER_TO_POINTERS
  192.  lea (a3,d6.w*4),a3
  193.  move.l a3,LinesPtr
  194.  moveq #0,d5
  195.  moveq #0,d2
  196.  
  197.  move.l POINTER_TO_POINTERS,a4
  198.  move.w (a4,d5.w*4),d2
  199.  add.l START_OF_OBJECT,d2
  200.  move.l d2,PtsPtr
  201.  move.w 2(a4,d5.w*4),d5
  202.  add.l START_OF_OBJECT,d5
  203.  move.l d5,PolyAngPtr
  204.  move.l d2,a3
  205.  move.w num_points,d5
  206.  
  207.  move.l (a3)+,OBJONOFF
  208.  
  209.  move.l a3,PointAngPtr
  210.  add.w d5,d5
  211.  move.w d5,d2
  212.  add.w d5,d5
  213.  add.w d5,d2
  214.  add.w d2,a3
  215.  move.l a3,PtsPtr
  216.  
  217.  move.l MyScreen,a4
  218.  move.w sc_MouseX(a4),d0
  219.  move.w sc_MouseY(a4),d1
  220.  
  221.  sub.w OLDXM,d0
  222.  sub.w OLDYM,d1
  223.  add.w d0,OLDXM
  224.  add.w d1,OLDYM
  225.  
  226.  btst #6,$bfe001
  227.  beq.s .SHIFTABOUT
  228.  
  229.  muls #8190,d0
  230.  divs #320,d0
  231.  add.w d0,YANG
  232.  and.w #8190,YANG
  233.  muls #8190,d1
  234.  divs #320,d1
  235.  and.w #8190,d1
  236.  add.w d1,XANG
  237.  and.w #8190,XANG
  238.  
  239. ; add.w #40,AANG
  240. ; add.w #70,BANG
  241. ; and.w #8191,AANG
  242. ; and.w #8191,BANG
  243.  
  244. ; add.w #60,CANG
  245. ; add.w #90,DANG
  246. ; and.w #8191,CANG
  247. ; and.w #8191,DANG
  248.  
  249.  
  250.  bra .ROTABOUT
  251. .SHIFTABOUT
  252.  
  253.   muls #8190,d0
  254.  divs #320,d0
  255.  add.w d0,BANG
  256.  and.w #8190,BANG
  257.  muls #8190,d1
  258.  divs #320,d1
  259.  and.w #8190,d1
  260.  add.w d1,AANG
  261.  and.w #8190,AANG
  262.  
  263.  
  264. .ROTABOUT
  265.  
  266.  move.w AANG,d1
  267.  move.w BANG,d3
  268. ; cmp.w #2,d6
  269. ; bne.s .notsecrot
  270. ; move.w CANG,d1
  271. ; move.w DANG,d3
  272. ;.notsecrot
  273.  move.l #SINETABLE,a1
  274.  move.w (a1,d1.w),XSIN    ;xsin
  275.  move.w (a1,d3.w),YSIN    ;ysin
  276.  
  277.  add.w #2048,a1
  278.  move.w (a1,d1.w),XCOS    ;xcos
  279.  move.w (a1,d3.w),YCOS    ;ycos
  280.  
  281.  move.w XANG,d1
  282.  move.w YANG,d3
  283. ; cmp.w #2,d6
  284. ; bne.s .notsecrot
  285. ; move.w CANG,d1
  286. ; move.w DANG,d3
  287. ;.notsecrot
  288.  move.l #SINETABLE,a1
  289.  move.w (a1,d1.w),XSIN2    ;xsin
  290.  move.w (a1,d3.w),YSIN2    ;ysin
  291.  
  292.  add.w #2048,a1
  293.  move.w (a1,d1.w),XCOS2    ;xcos
  294.  move.w (a1,d3.w),YCOS2    ;ycos
  295.  
  296.  
  297. ************************************************
  298. ************************************************
  299. ************************************************
  300. ************************************************
  301. ************************************************
  302. ************************************************
  303. ************************************************
  304. ************************************************
  305. ************************************************
  306. ************************************************
  307. ************************************************
  308. ************************************************
  309. ************************************************
  310. ************************************************
  311.  
  312. *SHADOW BUFFER CALCULATION
  313.  
  314.  
  315. ; First, calculate the normal brightnesses
  316. ; for points. NB: -1,-1,-1 = this point not used
  317. ; in gouraud shading.
  318.  
  319.  move.l #NORMBRIGHTS,a2
  320.  move.l PointAngPtr,a0
  321.  move.w num_points,d7
  322.  
  323.  move.l #NORMVECTS,a5
  324.  
  325.  subq #1,d7
  326.  
  327. CALCNORMBRIGHTS:
  328.  
  329.  move.w (a0)+,d0
  330.  move.w (a0)+,d1
  331.  move.w (a0)+,d2
  332.  
  333.  move.w #0,d6
  334.  
  335.  cmp.w #-1,d0
  336.  bne.s .notnot
  337.  cmp.w #-1,d1
  338.  bne.s .notnot
  339.  cmp.w #-1,d2
  340.  bne.s .notnot
  341.  
  342.  move.w #-1,x1
  343.  move.w #-1,y1
  344.  move.w #-1,z1
  345.  bra .dontbother
  346.  
  347. .notnot:
  348.  neg.w d1
  349.  
  350.  move.w d0,d3
  351.  move.w d2,d5
  352.  
  353.  muls YCOS,d0
  354.  muls YSIN,d2
  355.  sub.l d2,d0
  356.  add.l d0,d0
  357.  swap d0
  358. ; asr.l #6,d0    ; new x*512
  359.  
  360.  muls YSIN,d3
  361.  muls YCOS,d5
  362.  add.l d5,d3
  363.  add.l d3,d3
  364.  swap d3
  365.  move.w d3,d2    ; new z
  366.  
  367.  move.w d1,d4
  368.  move.w d2,d5
  369.  muls XCOS,d1
  370.  muls XSIN,d2
  371.  sub.l d2,d1
  372.  add.l d1,d1
  373.  swap d1
  374.  
  375.  muls XSIN,d4
  376.  muls XCOS,d5
  377.  add.l d5,d4
  378.  add.l d4,d4
  379.  swap d4
  380.  move.w d4,d2    ; new z
  381.  
  382.  
  383.  move.w d0,d3
  384.  move.w d2,d5
  385.  
  386.  muls YCOS2,d0
  387.  muls YSIN2,d2
  388.  sub.l d2,d0
  389.  add.l d0,d0
  390.  swap d0
  391.  
  392.  muls YSIN2,d3
  393.  muls YCOS2,d5
  394.  add.l d5,d3    
  395.  add.l d3,d3
  396.  swap d3
  397.  move.w d3,d2    ; new z
  398.  
  399.  move.w d1,d4
  400.  move.w d2,d5
  401.  muls XCOS2,d1
  402.  muls XSIN2,d2
  403.  sub.l d2,d1
  404.  add.l d1,d1
  405.  swap d1
  406.  
  407.  muls XSIN2,d4
  408.  muls XCOS2,d5
  409.  add.l d5,d4
  410.  add.l d4,d4
  411.  swap d4
  412.  
  413.  move.w d0,x1
  414.  move.w d1,y1
  415.  move.w d4,z1
  416.  
  417.  
  418.  move.w d1,d6    ; new y 
  419.  
  420.  asr.w #4,d6
  421.  add.w #20,d6
  422.  
  423.  ble.s .okokok
  424.  
  425.  moveq #0,d6
  426.  
  427. .okokok:
  428.  add.w #$1c,d6
  429.  cmp.w #1,d6
  430.  bge.s .okokokok
  431.  moveq #1,d6
  432. .okokokok:
  433.  
  434. ; add.w #64,d6
  435. ; 
  436. ; cmp.w #28,d6
  437. ; blt.s .okbig
  438. ; move.w #28,d6
  439. ;.okbig
  440.  
  441. .dontbother:
  442.  move.w x1,(a5)+
  443.  move.w y1,(a5)+
  444.  move.w z1,(a5)+
  445.  move.w d6,(a2)+
  446.  
  447.  dbra d7,CALCNORMBRIGHTS
  448.  
  449.  
  450. ; Next, calculate the point coords for
  451. ; the shadow buffer.
  452.  
  453.  move.l #SHADOWPTS,a2
  454.  move.l PtsPtr,a0
  455.  move.w num_points,d7
  456.  subq #1,d7
  457.  
  458. ROTPTLOPSHAD:
  459.  move.w (a0)+,d0
  460.  move.w d0,d3
  461.  move.w (a0)+,d1
  462.  move.w (a0)+,d2
  463.  move.w d2,d5
  464.  
  465.  muls YCOS,d0
  466.  muls YSIN,d2
  467.  sub.l d2,d0
  468.  add.l d0,d0
  469.  swap d0
  470. ; asr.l #6,d0    ; new x*512
  471.  
  472.  muls YSIN,d3
  473.  muls YCOS,d5
  474.  add.l d5,d3
  475.  add.l d3,d3
  476.  swap d3
  477.  move.w d3,d2    ; new z
  478.  
  479.  move.w d1,d4
  480.  move.w d2,d5
  481.  muls XCOS,d1
  482.  muls XSIN,d2
  483.  sub.l d2,d1
  484.  add.l d1,d1
  485.  swap d1
  486.  
  487.  muls XSIN,d4
  488.  muls XCOS,d5
  489.  add.l d5,d4
  490.  add.l d4,d4
  491.  swap d4
  492.  move.w d4,d2    ; new z
  493.   
  494.  move.w d0,d3
  495.  move.w d2,d5
  496.  
  497.  muls YCOS2,d0
  498.  muls YSIN2,d2
  499.  sub.l d2,d0
  500.  asr.l #6,d0    ; new x*512
  501.  
  502.  muls YSIN2,d3
  503.  muls YCOS2,d5
  504.  add.l d5,d3
  505.  add.l d3,d3
  506.  swap d3
  507.  move.w d3,d2    ; new z
  508.  
  509.  move.w d1,d4
  510.  move.w d2,d5
  511.  muls XCOS2,d1
  512.  muls XSIN2,d2
  513.  sub.l d2,d1
  514.  asr.l #6,d1    ; new y*512
  515.  
  516.  muls XSIN2,d4
  517.  muls XCOS2,d5
  518.  add.l d5,d4
  519.  add.l d4,d4
  520.  swap d4
  521.  move.w d4,d2    ; new z
  522.  
  523.  ext.l d2
  524.  
  525.  move.w XOFF,d5
  526.  ext.l d5
  527.  asl.l #8,d5
  528.  add.l d5,d5
  529.  add.l d5,d0
  530.  
  531.  move.l d0,(a2)+
  532.  move.l d1,(a2)+
  533.  move.w d2,(a2)+
  534.  
  535.  dbra d7,ROTPTLOPSHAD
  536.  
  537.  
  538.  
  539. ***************************************
  540. * Calculate viewer position for specularity..
  541.  
  542.  move.w #0,d0
  543.  move.w #0,d1
  544.  move.w #-1024,d2
  545.  
  546. ; move.w d0,d3
  547. ; move.w d2,d5
  548. ;
  549. ; muls YCOS,d0
  550. ; muls YSIN,d2
  551. ; sub.l d2,d0
  552. ; add.l d0,d0
  553. ; swap d0
  554. ; asr.l #6,d0    ; new x*512
  555. ; 
  556. ; muls YSIN,d3
  557. ; muls YCOS,d5
  558. ; add.l d5,d3
  559. ; add.l d3,d3
  560. ; swap d3
  561. ; move.w d3,d2    ; new z
  562. ;
  563. ; move.w d1,d4
  564. ; move.w d2,d5
  565. ; muls XCOS,d1
  566. ; muls XSIN,d2
  567. ; sub.l d2,d1
  568. ; add.l d1,d1
  569. ; swap d1
  570. ; 
  571. ; muls XSIN,d4
  572. ; muls XCOS,d5
  573. ; add.l d5,d4
  574. ; add.l d4,d4
  575. ; swap d4
  576. ; move.w d4,d2    ; new z
  577.  
  578.  move.w d0,d3
  579.  move.w d2,d5
  580.  
  581.  muls YCOS2,d0
  582.  muls YSIN2,d2
  583.  sub.l d2,d0
  584.  add.l d0,d0
  585.  swap d0
  586.  
  587.  muls YSIN2,d3
  588.  muls YCOS2,d5
  589.  add.l d5,d3    
  590.  add.l d3,d3
  591.  swap d3
  592.  move.w d3,d2    ; new z
  593.  
  594.  move.w d1,d4
  595.  move.w d2,d5
  596.  muls XCOS2,d1
  597.  muls XSIN2,d2
  598.  sub.l d2,d1
  599.  add.l d1,d1
  600.  swap d1
  601. ; asr.l #6,d1    ; new y*512
  602.  
  603.  muls XSIN2,d4
  604.  muls XCOS2,d5
  605.  add.l d5,d4
  606.  add.l d4,d4
  607.  swap d4
  608.  
  609.  move.w d0,x2b
  610.  move.w d1,y2b
  611.  move.w d4,z2b
  612.  
  613. ; Now the specular highlight efforts....
  614.  
  615.  move.l #SPECBRIGHTS,a2
  616.  move.l #NORMVECTS,a1
  617.  
  618.  move.l #SHADOWPTS,a5
  619.  
  620.  move.w num_points,d7
  621.  subq #1,d7
  622.  
  623. CALCSPECBRIGHTS:
  624.  
  625.  move.w (a1)+,x1
  626.  move.w (a1)+,y1
  627.  move.w (a1)+,z1
  628.  
  629.  move.w x2b,d0
  630.  move.l (a5)+,d1
  631.  asr.l #8,d1
  632.  asr.l #1,d1
  633.  sub.w d1,d0
  634.  move.w d0,x2
  635.  move.w y2b,d0
  636.  move.l (a5)+,d1
  637.  asr.l #8,d1
  638.  asr.l #1,d1
  639.  sub.w d1,d0
  640.  move.w d0,y2
  641.  move.w z2b,d0
  642.  sub.w (a5)+,d0
  643.  move.w d0,z2
  644.  
  645.  move.w #0,d6
  646.  
  647.  cmp.w #-1,x1
  648.  bne.s .notnot
  649.  cmp.w #-1,y1
  650.  bne.s .notnot
  651.  cmp.w #-1,z1
  652.  beq .dontbother
  653. .notnot: 
  654.  
  655.  move.w x2,d2
  656.  muls d2,d2
  657.  move.w y2,d1
  658.  muls d1,d1
  659.  add.l d1,d2
  660.  move.w z2,d1
  661.  muls d1,d1
  662.  add.l d1,d2
  663.  
  664.  jsr CALCSQROOT
  665.  
  666.  move.w d2,l2
  667.  
  668.  move.w y1,d0
  669.  muls z2,d0
  670.  move.w y2,d1
  671.  muls z1,d1
  672.  sub.l d1,d0    ; x4
  673.  
  674.  move.w z1,d1
  675.  muls x2,d1
  676.  move.w z2,d2
  677.  muls x1,d2
  678.  sub.l d2,d1    ; y4
  679.  
  680.  move.w x1,d2
  681.  muls y2,d2
  682.  move.w x2,d3
  683.  muls y1,d3
  684.  sub.l d3,d2    ; z4
  685.  
  686.  asr.l #8,d0
  687.  asr.l #8,d1
  688.  asr.l #8,d2
  689.  asr.l #2,d0
  690.  asr.l #2,d1
  691.  asr.l #2,d2
  692.  
  693.  move.w x1,d3
  694.  muls d1,d3
  695.  move.w y1,d4
  696.  muls d0,d4
  697.  sub.l d4,d3
  698.  asr.l #8,d3
  699.  asr.l #1,d3
  700.  add.w z2,d3
  701.  
  702.  muls #1024,d3
  703.  divs l2,d3
  704.  
  705.  move.w d3,z3
  706.  
  707.  move.w y1,d3
  708.  muls d2,d3
  709.  move.w z1,d4
  710.  muls d1,d4
  711.  sub.l d4,d3
  712.  asr.l #8,d3
  713.  asr.l #1,d3
  714.  add.w x2,d3
  715.  muls #1024,d3
  716.  divs l2,d3
  717.  
  718.  move.w d3,x3
  719.  
  720.  move.w z1,d3
  721.  muls d0,d3
  722.  move.w x1,d4
  723.  muls d2,d4
  724.  sub.l d4,d3
  725.  asr.l #8,d3
  726.  asr.l #1,d3
  727.  add.w y2,d3
  728.  muls #1024,d3
  729.  divs l2,d3
  730.  
  731.  move.w d3,y3
  732.  
  733.  move.w z3,d3
  734.  asr.w #4,d3
  735.  add.w #128,d3
  736.  bge.s .okpp
  737.  moveq #0,d3
  738. .okpp
  739.  cmp.w #255,d3
  740.  ble.s .okppp
  741.  move.w #255,d3
  742. .okppp
  743.  
  744.  move.b d3,d6
  745.  lsl.w #8,d6
  746.  
  747.  move.w x3,d3
  748.  asr.w #4,d3
  749.  
  750.  add.w #128,d3
  751.  bge.s .okp
  752.  moveq #0,d3
  753. .okp
  754.  cmp.w #255,d3
  755.  ble.s .okpppp
  756.  move.w #255,d3
  757. .okpppp
  758.  move.b d3,d6
  759.   
  760.  tst.w y3
  761.  blt.s .okpos
  762.  
  763.  move.w x3,d1
  764.  asr.w #4,d1
  765.  move.w z3,d2
  766.  asr.w #4,d2
  767.  
  768.  muls d1,d1
  769.  muls d2,d2
  770.  add.l d1,d2
  771.  jsr CALCSQROOT
  772.  tst.w d2
  773.  beq.s .okpos
  774.  
  775.  move.w d2,d3
  776.  neg.w d3
  777.  add.w #127,d3
  778.  
  779.  move.w z3,d4
  780.  muls d3,d4
  781.  divs d2,d4
  782.  asr.w #4,d4
  783.  add.w #128,d4
  784.  move.b d4,d6
  785.  lsl.w #8,d6
  786.  
  787.  move.w x3,d4
  788.  muls d3,d4
  789.  divs d2,d4
  790.  asr.w #4,d4
  791.  add.w #128,d4
  792.  move.b d4,d6
  793.  
  794. ; neg.w y3
  795.  
  796. .okpos
  797.   
  798. ; add.w y2,d3
  799. ;
  800. ; move.w d3,d6
  801. ;
  802. ; asr.w #4,d6
  803. ; 
  804. ; add.w #30,d6
  805. ; 
  806. ; ble.s .okokok
  807. ; 
  808. ; moveq #0,d6
  809. ; 
  810. ;.okokok:
  811. ; add.w #$1c,d6
  812. ;
  813. ; cmp.w #1,d6
  814. ; bge.s .okokokok
  815. ; moveq #1,d6
  816. ;.okokokok:
  817.  
  818. ; 
  819. ; cmp.w #28,d6
  820. ; blt.s .okbig
  821. ; move.w #28,d6
  822. ;.okbig
  823.  
  824. .dontbother:
  825.  move.w d6,(a2)+
  826.  move.w y3,(a2)+
  827.  
  828.  dbra d7,CALCSPECBRIGHTS
  829.  
  830.  
  831.  
  832.  
  833. * NOW THE POINTS FOR ON-SCREENNESS
  834.  
  835.  move.l #ROTATEDPTS,a2
  836.  move.l PtsPtr,a0
  837.  move.w num_points,d7
  838.  subq #1,d7
  839.  
  840. ROTPTLOP:
  841.  
  842.  move.w (a0)+,d0
  843.  move.w d0,d3
  844.  move.w (a0)+,d1
  845.  move.w (a0)+,d2
  846.  move.w d2,d5
  847.  
  848.  
  849.  
  850.  muls YCOS,d0
  851.  muls YSIN,d2
  852.  sub.l d2,d0
  853.  asr.l #6,d0    ; new x*512
  854.  
  855.  muls YSIN,d3
  856.  muls YCOS,d5
  857.  add.l d5,d3
  858.  add.l d3,d3
  859.  swap d3
  860.  move.w d3,d2    ; new z
  861.  
  862.  move.w d1,d4
  863.  move.w d2,d5
  864.  muls XCOS,d1
  865.  muls XSIN,d2
  866.  sub.l d2,d1
  867.  asr.l #6,d1    ; new y*512
  868.  
  869.  muls XSIN,d4
  870.  muls XCOS,d5
  871.  add.l d5,d4
  872.  add.l d4,d4
  873.  swap d4
  874.  move.w d4,d2    ; new z
  875.  
  876.  ext.l d2
  877.  
  878.  move.w XOFF,d5
  879.  ext.l d5
  880.  asl.l #8,d5
  881.  add.l d5,d5
  882.  add.l d5,d0
  883.  
  884.  move.l d0,(a2)+
  885.  move.l d1,(a2)+
  886.  move.w d2,(a2)+
  887.  
  888.  dbra d7,ROTPTLOP
  889.  
  890. ; Now convert the rotated points to the screen:
  891.  
  892.  move.l #ROTATEDPTS,a0
  893.  move.l #ONSCREENPTS,a2
  894.  move.w num_points,d7
  895.  subq #1,d7
  896. CONVERTTOSCREEN:
  897.  move.l (a0)+,d0
  898.  move.l (a0)+,d1
  899.  move.w (a0)+,d2
  900.  add.w ZOFF,d2
  901.  ext.l d2
  902.  
  903.  move.l d0,d3
  904.  asr.l #1,d3
  905.  add.l d3,d0 
  906.  move.l d1,d3
  907.  asr.l #1,d3
  908.  add.l d3,d1 
  909.  
  910.  divs d2,d0
  911.  divs d2,d1
  912.  add.w #160*4,d0
  913.  add.w #128*4,d1
  914.  move.w d0,(a2)+
  915.  move.w d1,(a2)+
  916.  dbra d7,CONVERTTOSCREEN
  917.  
  918.  move.w #254,HIGHPOLY
  919.  
  920.  move.l LinesPtr,a1
  921.  move.l #PartBuffer,a0
  922.  move.l a0,a2
  923.  move.w #15,d0
  924. clrpartbuffSHAD:
  925.  move.l #$80000001,(a2)+
  926.  move.l #$80000001,(a2)+
  927.  move.l #$80000001,(a2)+
  928.  move.l #$80000001,(a2)+
  929.  dbra d0,clrpartbuffSHAD
  930.  
  931.  move.l #SHADOWPTS,a2
  932.  move.l OBJONOFF,d5
  933.  
  934.  move.w #0,d4
  935.  tst.w SORTIT
  936.  bne.s PutInPartsSHAD
  937.  
  938.  
  939. putinunsortedSHAD:
  940.  move.w (a1)+,d7
  941.  blt doneallpartsSHAD
  942.  lsr.l #1,d5
  943.  bcs.s .yeson
  944.  addq #2,a1
  945.  bra putinunsortedSHAD
  946. .yeson:
  947.  
  948.  move.w (a1)+,d6
  949.  move.l #0,(a0)+
  950.  move.w d7,(a0)+
  951.  move.w d4,(a0)+
  952.  addq #1,d4
  953.  bra putinunsortedSHAD
  954.  
  955. PutInPartsSHAD
  956.  move.w (a1)+,d7
  957.  blt doneallpartsSHAD
  958.  
  959.  lsr.l #1,d5
  960.  bcs.s .yeson
  961.  addq #2,a1
  962.  bra PutInPartsSHAD
  963. .yeson:
  964.  
  965.  move.w (a1)+,d6
  966.  move.l 4(a2,d6.w),d0
  967.  add.l #200000,d0
  968.  
  969.  move.l #PartBuffer-8,a0
  970.  
  971. stillfrontSHAD
  972.  addq #8,a0
  973.  cmp.l (a0),d0
  974.  blt stillfrontSHAD
  975.  move.l #endparttab-8,a5
  976. domoreshiftSHAD:
  977.  move.l -8(a5),(a5)
  978.  move.l -4(a5),4(a5)
  979.  subq #8,a5
  980.  cmp.l a0,a5
  981.  bgt.s domoreshiftSHAD
  982.  
  983.  move.l d0,(a0)
  984.  move.w d7,4(a0)
  985.  move.w d4,6(a0)
  986.  addq #1,d4
  987.  bra PutInPartsSHAD
  988.  
  989. doneallpartsSHAD:
  990.  
  991.  move.l #PartBuffer,a0
  992.  
  993. PartLoopSHAD
  994.  move.l (a0)+,d7
  995.  blt nomorepartsSHAD
  996.  
  997.  move.l #SAVEHIGHS,a2
  998.  move.w 2(a0),d0
  999.  move.w HIGHPOLY,(a2,d0.w*2)
  1000.  
  1001.  moveq #0,d0
  1002.  move.w (a0),d0
  1003.  addq #4,a0
  1004.  add.l START_OF_OBJECT,d0
  1005.  move.l d0,a1
  1006.  
  1007. polylooSHAD:
  1008.  
  1009.  tst.w (a1)
  1010.  blt.s nomorepolysSHAD
  1011.  movem.l a0/a1/d7,-(a7)
  1012.  bsr doaSHADEpoly
  1013.  movem.l (a7)+,a0/a1/d7
  1014.  
  1015.  move.w (a1),d0
  1016.  lea 18(a1,d0.w*4),a1
  1017.  
  1018.  bra.s polylooSHAD
  1019. nomorepolysSHAD:
  1020.  sub.w #1,HIGHPOLY
  1021.  bra PartLoopSHAD
  1022. nomorepartsSHAD:
  1023.  
  1024. *******************************************
  1025. * Now the on-screen bit...
  1026. *******************************************
  1027.  
  1028.  move.l LinesPtr,a1
  1029.  move.l #PartBuffer,a0
  1030.  move.l a0,a2
  1031.  move.w #15,d0
  1032. clrpartbuff:
  1033.  move.l #$80000001,(a2)+
  1034.  move.l #$80000001,(a2)+
  1035.  move.l #$80000001,(a2)+
  1036.  move.l #$80000001,(a2)+
  1037.  dbra d0,clrpartbuff
  1038.  
  1039.  move.l #ROTATEDPTS,a2
  1040.  move.l OBJONOFF,d5
  1041.  
  1042.  moveq #0,d4
  1043.  
  1044.  tst.w SORTIT
  1045.  bne.s PutInParts
  1046.  
  1047. putinunsorted:
  1048.  move.w (a1)+,d7
  1049.  blt doneallparts
  1050.  lsr.l #1,d5
  1051.  bcs.s .yeson
  1052.  addq #2,a1
  1053.  bra putinunsorted
  1054. .yeson:
  1055.  
  1056.  move.w (a1)+,d6
  1057.  move.l #0,(a0)+
  1058.  move.w d7,(a0)+
  1059.  move.w d4,(a0)+
  1060.  
  1061.  addq #1,d4
  1062.  bra putinunsorted
  1063.  
  1064. PutInParts
  1065.  move.w (a1)+,d7
  1066.  blt doneallparts
  1067.  
  1068.  lsr.l #1,d5
  1069.  bcs.s .yeson
  1070.  addq #2,a1
  1071.  bra PutInParts
  1072. .yeson:
  1073.  
  1074.  move.w (a1)+,d6
  1075.  move.l (a2,d6.w),d0
  1076.  asr.l #8,d0
  1077.  asr.l #2,d0
  1078.  muls d0,d0
  1079.  move.l 4(a2,d6.w),d2
  1080.  asr.l #8,d2
  1081.  asr.l #2,d2
  1082.  muls d2,d2
  1083.  add.l d2,d0 
  1084.  move.w 8(a2,d6.w),d2
  1085.  add.w #1024,d2
  1086.  muls d2,d2
  1087.  add.l d2,d0
  1088.  
  1089.  move.l #PartBuffer-8,a0
  1090.  
  1091. stillfront
  1092.  addq #8,a0
  1093.  cmp.l (a0),d0
  1094.  blt stillfront
  1095.  move.l #endparttab-8,a5
  1096. domoreshift:
  1097.  move.l -8(a5),(a5)
  1098.  move.l -4(a5),4(a5)
  1099.  subq #8,a5
  1100.  cmp.l a0,a5
  1101.  bgt.s domoreshift
  1102.  
  1103.  move.l d0,(a0)
  1104.  move.w d7,4(a0)
  1105.  move.w d4,6(a0)
  1106.  addq #1,d4
  1107.  bra PutInParts
  1108.  
  1109. doneallparts:
  1110.  
  1111.  move.l #PartBuffer,a0
  1112.  
  1113. PartLoop
  1114.  move.l (a0)+,d7
  1115.  blt nomoreparts
  1116.  
  1117.  move.l #SAVEHIGHS,a2
  1118.  move.w 2(a0),d0
  1119.  move.w (a2,d0.w*2),HIGHPOLY
  1120.  
  1121.  moveq #0,d0
  1122.  move.w (a0),d0
  1123.  addq #4,a0
  1124.  add.l START_OF_OBJECT,d0
  1125.  move.l d0,a1
  1126.  
  1127. polyloo:
  1128.  
  1129.  tst.w (a1)
  1130.  blt.s nomorepolys
  1131.  movem.l a0/a1/d7,-(a7)
  1132.  bsr doapoly
  1133.  movem.l (a7)+,a0/a1/d7
  1134.  
  1135.  move.w (a1),d0
  1136.  lea 18(a1,d0.w*4),a1
  1137.  
  1138.  bra.s polyloo
  1139. nomorepolys:
  1140.  sub.w #1,HIGHPOLY
  1141.  bra PartLoop
  1142. nomoreparts:
  1143.  
  1144. NOPOLYS:
  1145.  
  1146. ; btst #6,$bfe001
  1147. ; beq.s .SHOWSHADOW
  1148.  
  1149.  move.l FASTBUFFER,a0
  1150.  add.l #40*320+64,a0
  1151.  move.l #RAWSCRN,a1
  1152.  add.l #40*40+8,a1
  1153.  move.l #(24)-1,d0
  1154.  move.l #175,d1
  1155.  move.w #128,d2
  1156.  move.w #16,d3
  1157.  moveq #0,d4
  1158.  moveq #0,d5
  1159.  jsr CHUNKYTOPLANAR 
  1160.  
  1161.  bra .SHOWNSCRN
  1162.  
  1163. .SHOWSHADOW
  1164.  
  1165.  move.l #SHADOWBUFFER,a0
  1166.  add.l #40*256,a0
  1167.  move.l #RAWSCRN,a1
  1168.  add.l #40*40,a1
  1169.  move.l #(256/8)-1,d0
  1170.  move.l #175,d1
  1171.  move.w #0,d2
  1172.  move.w #8,d3
  1173.  moveq #0,d4
  1174.  moveq #0,d5
  1175.  jsr CHUNKYTOPLANAR 
  1176.  
  1177. .SHOWNSCRN:
  1178.  
  1179.  move.l FASTBUFFER,a0
  1180.  move.l #NEBBIE,a1
  1181.  add.l #40*320+64,a0
  1182.  
  1183.  move.w #175,d0
  1184. clrchunk:
  1185.  move.l (a1)+,(a0)+
  1186.  move.l (a1)+,(a0)+
  1187.  move.l (a1)+,(a0)+
  1188.  move.l (a1)+,(a0)+
  1189.  move.l (a1)+,(a0)+
  1190.  move.l (a1)+,(a0)+
  1191.  move.l (a1)+,(a0)+
  1192.  move.l (a1)+,(a0)+
  1193.  move.l (a1)+,(a0)+
  1194.  move.l (a1)+,(a0)+
  1195.  move.l (a1)+,(a0)+
  1196.  move.l (a1)+,(a0)+
  1197.  move.l (a1)+,(a0)+
  1198.  move.l (a1)+,(a0)+
  1199.  move.l (a1)+,(a0)+
  1200.  move.l (a1)+,(a0)+
  1201.  move.l (a1)+,(a0)+
  1202.  move.l (a1)+,(a0)+
  1203.  move.l (a1)+,(a0)+
  1204.  move.l (a1)+,(a0)+
  1205.  move.l (a1)+,(a0)+
  1206.  move.l (a1)+,(a0)+
  1207.  move.l (a1)+,(a0)+
  1208.  move.l (a1)+,(a0)+
  1209.  move.l (a1)+,(a0)+
  1210.  move.l (a1)+,(a0)+
  1211.  move.l (a1)+,(a0)+
  1212.  move.l (a1)+,(a0)+
  1213.  move.l (a1)+,(a0)+
  1214.  move.l (a1)+,(a0)+
  1215.  move.l (a1)+,(a0)+
  1216.  move.l (a1)+,(a0)+
  1217.  move.l (a1)+,(a0)+
  1218.  move.l (a1)+,(a0)+
  1219.  move.l (a1)+,(a0)+
  1220.  move.l (a1)+,(a0)+
  1221.  move.l (a1)+,(a0)+
  1222.  move.l (a1)+,(a0)+
  1223.  move.l (a1)+,(a0)+
  1224.  move.l (a1)+,(a0)+
  1225.  move.l (a1)+,(a0)+
  1226.  move.l (a1)+,(a0)+
  1227.  move.l (a1)+,(a0)+
  1228.  move.l (a1)+,(a0)+
  1229.  move.l (a1)+,(a0)+
  1230.  move.l (a1)+,(a0)+
  1231.  move.l (a1)+,(a0)+
  1232.  move.l (a1)+,(a0)+
  1233.  add.w #(320-192),a0
  1234.  dbra d0,clrchunk
  1235.  
  1236.  move.l #SHADOWBUFFER,a0
  1237.  move.l #-1,d1
  1238.  move.l #-1,d2
  1239.  move.w #15,d0
  1240. ;clrshad:
  1241. ; move.w #15,d5
  1242. ;innner
  1243. ; move.l d2,(a0)+
  1244. ; move.l d2,(a0)+
  1245. ; move.l d2,(a0)+
  1246. ; move.l d2,(a0)+
  1247. ; move.l d1,(a0)+
  1248. ; move.l d1,(a0)+
  1249. ; move.l d1,(a0)+
  1250. ; move.l d1,(a0)+
  1251. ; move.l d2,(a0)+
  1252. ; move.l d2,(a0)+
  1253. ; move.l d2,(a0)+
  1254. ; move.l d2,(a0)+
  1255. ; move.l d1,(a0)+
  1256. ; move.l d1,(a0)+
  1257. ; move.l d1,(a0)+
  1258. ; move.l d1,(a0)+
  1259. ; move.l d2,(a0)+
  1260. ; move.l d2,(a0)+
  1261. ; move.l d2,(a0)+
  1262. ; move.l d2,(a0)+
  1263. ; move.l d1,(a0)+
  1264. ; move.l d1,(a0)+
  1265. ; move.l d1,(a0)+
  1266. ; move.l d1,(a0)+
  1267. ; move.l d2,(a0)+
  1268. ; move.l d2,(a0)+
  1269. ; move.l d2,(a0)+
  1270. ; move.l d2,(a0)+
  1271. ; move.l d1,(a0)+
  1272. ; move.l d1,(a0)+
  1273. ; move.l d1,(a0)+
  1274. ; move.l d1,(a0)+
  1275. ; move.l d2,(a0)+
  1276. ; move.l d2,(a0)+
  1277. ; move.l d2,(a0)+
  1278. ; move.l d2,(a0)+
  1279. ; move.l d1,(a0)+
  1280. ; move.l d1,(a0)+
  1281. ; move.l d1,(a0)+
  1282. ; move.l d1,(a0)+
  1283. ; move.l d2,(a0)+
  1284. ; move.l d2,(a0)+
  1285. ; move.l d2,(a0)+
  1286. ; move.l d2,(a0)+
  1287. ; move.l d1,(a0)+
  1288. ; move.l d1,(a0)+
  1289. ; move.l d1,(a0)+
  1290. ; move.l d1,(a0)+
  1291. ; move.l d2,(a0)+
  1292. ; move.l d2,(a0)+
  1293. ; move.l d2,(a0)+
  1294. ; move.l d2,(a0)+
  1295. ; move.l d1,(a0)+
  1296. ; move.l d1,(a0)+
  1297. ; move.l d1,(a0)+
  1298. ; move.l d1,(a0)+
  1299. ; move.l d2,(a0)+
  1300. ; move.l d2,(a0)+
  1301. ; move.l d2,(a0)+
  1302. ; move.l d2,(a0)+
  1303. ; move.l d1,(a0)+
  1304. ; move.l d1,(a0)+
  1305. ; move.l d1,(a0)+
  1306. ; move.l d1,(a0)+
  1307. ; dbra d5,innner
  1308. ; exg d1,d2
  1309. ;
  1310. ; dbra d0,clrshad
  1311.  
  1312.  
  1313.  
  1314.     btst #7,$bfe001
  1315.     beq.s exit_closescr
  1316.  
  1317.  
  1318.     add.l #$8000,lmxoff
  1319.     cmp.l #40*65536,lmxoff
  1320.     blt.s .oksm
  1321.     sub.l #40*65536,lmxoff    
  1322. .oksm
  1323.  
  1324.     bra loop
  1325.     
  1326. lmxoff: dc.l 0
  1327.  
  1328. exit_closescr
  1329.     move.l    MyScreen(pc),a0
  1330.     CALLINT CloseScreen
  1331.  
  1332. exit_closeall
  1333.     move.l    _GfxBase(pc),a1
  1334.     CALLEXEC CloseLibrary
  1335.  
  1336. exit_closeint
  1337.     move.l    _IntuitionBase(pc),a1
  1338.     CALLEXEC CloseLibrary
  1339.  
  1340. exit_false
  1341.     move.l    #0,d0                return code
  1342.     rts
  1343.  
  1344. TESTTAB: ds.w 30
  1345.  
  1346. ************************************************
  1347. * SUBROUTINES HERE. ****************************
  1348. ************************************************
  1349.  
  1350.  
  1351. **********************************************************
  1352.  
  1353. * the definition of the screen - note that in assembler you
  1354. * MUST get the sizes of these fields correct, by consulting either
  1355. * the RKM or the header files
  1356.  
  1357.  
  1358. MyNewScreen    dc.w    0,0        left, top
  1359.         dc.w    320,256        width, height
  1360.         dc.w    8        depth
  1361.         dc.b    0,1        pens
  1362.         dc.w    0        viewmodes
  1363.         dc.w    CUSTOMSCREEN    type
  1364.         dc.l    MyFont        font
  1365.         dc.l    screen_title    title
  1366.         dc.l    0        gadgets
  1367.         dc.l    0        bitmap
  1368.  
  1369. * my font definition
  1370. MyFont    dc.l    font_name
  1371.     dc.w    TOPAZ_SIXTY
  1372.     dc.b    FS_NORMAL
  1373.     dc.b    FPF_ROMFONT
  1374.  
  1375. * the variables
  1376. _IntuitionBase    dc.l    0        Intuition lib pointer
  1377. _GfxBase    dc.l    0        graphics lib pointer
  1378. MyScreen        dc.l    0
  1379. MyWindow        dc.l    0
  1380. MyNewWindow    ds.b    nw_SIZE        a buffer
  1381.  
  1382.  
  1383. * some strings
  1384. int_name    INTNAME
  1385. graf_name    GRAFNAME
  1386. hello_message    dc.b    'Hello World'
  1387.  
  1388. * these are C strings, so have to be null terminated
  1389. screen_title    dc.b    'My Own Screen',0
  1390. font_name    dc.b    'topaz.font',0
  1391. window_title    dc.b    'A Simple Window',0
  1392.  
  1393.  even
  1394.  
  1395.  
  1396. doaSHADEpoly:
  1397.  
  1398.  move.w (a1)+,d7    ; sides to draw
  1399.  addq #2,a1        ; avoid holes
  1400.  
  1401.  move.l #SHADOWPTS,a3
  1402.  
  1403.  move.w (a1),d0
  1404.  move.w 4(a1),d1
  1405.  move.w 8(a1),d2
  1406.  muls #10,d0
  1407.  muls #10,d1
  1408.  muls #10,d2
  1409.  move.w 8(a3,d0.w),d3
  1410.  move.w 8(a3,d1.w),d4
  1411.  move.w 8(a3,d2.w),d5
  1412.  move.l (a3,d0.w),d0
  1413.  move.l (a3,d1.w),d1
  1414.  move.l (a3,d2.w),d2
  1415.  asr.l #8,d0
  1416.  asr.l #8,d1
  1417.  asr.l #8,d2
  1418.  asr.l #1,d0
  1419.  asr.l #1,d1
  1420.  asr.l #1,d2
  1421.  
  1422.  sub.w d1,d0
  1423.  sub.w d1,d2
  1424.  sub.w d4,d3
  1425.  sub.w d4,d5
  1426.  muls d3,d2
  1427.  muls d5,d0
  1428.  sub.l d0,d2
  1429.  bge SHADpolybehind
  1430.  
  1431.  
  1432.  
  1433.  move.w #20000,d4    ; top
  1434.  move.w #-20000,d5    ; bottom
  1435.  move.l #UVCOORDS,a4
  1436.  
  1437. putinlinesSHAD:
  1438.  move.w (a1),d0
  1439.  move.w 4(a1),d1
  1440.  
  1441.  moveq #0,d2
  1442.  move.b 2(a1),d2    ; one end U
  1443.  move.w d2,2(a4,d0.w*4)
  1444.  move.b 3(a1),d2    ; one end V
  1445.  move.w d2,(a4,d0.w*4)
  1446.  move.b 6(a1),d2    ; two end U
  1447.  move.w d2,2(a4,d1.w*4)
  1448.  move.b 7(a1),d2    ; two end V
  1449.  move.w d2,(a4,d1.w*4)
  1450.  
  1451.  move.w d0,d2
  1452.  muls #10,d2
  1453.  move.w 8(a3,d2.w),d2    ; Z
  1454.  
  1455.  cmp.w d2,d4
  1456.  ble.s .oktop
  1457.  move.w d2,d4
  1458. .oktop
  1459.  cmp.w d2,d5
  1460.  bge.s .okbot
  1461.  move.w d2,d5
  1462. .okbot
  1463.  
  1464.  movem.l d4/d5/d7/a1/a3/a4,-(a7)
  1465.  bsr SIMPLESHADLINE
  1466.  movem.l (a7)+,d4/d5/d7/a1/a3/a4
  1467.  addq #4,a1
  1468.  dbra d7,putinlinesSHAD
  1469.  addq #4,a1
  1470.   
  1471.  move.w (a1)+,TEXTUREADD
  1472.  
  1473.  asr.w #2,d4
  1474.  asr.w #2,d5
  1475.  add.w #128,d4
  1476.  add.w #128,d5
  1477.  move.w d4,TOPLINE
  1478.  move.w d5,BOTLINE
  1479.  
  1480. * Now draw the shadow polygon....
  1481.  
  1482.  move.l #SHADOWBUFFER,a2
  1483.  move.l #LEFTUVS,a0
  1484.  move.w TOPLINE,d0
  1485.  move.w BOTLINE,d1
  1486.  sub.w d0,d1
  1487.  asl.w #3,d0
  1488.  add.w d0,a0
  1489.  muls #(512/8),d0
  1490.  add.l d0,a2    ; pointer to screen line.
  1491.  
  1492.  subq #1,d1
  1493.  blt NOPOLYGONSHAD
  1494.  
  1495. DOAHORLINESHAD:
  1496.  swap d1
  1497.  
  1498.  move.w RIGHTUVS-LEFTUVS(a0),d0
  1499.  move.w (a0)+,d7
  1500.  sub.w d7,d0
  1501.  blt NOPOLYGONSHAD
  1502.  
  1503.  move.l a2,-(a7)
  1504.  
  1505. ; asr.w #2,d0
  1506. ; asr.w #2,d7
  1507.  lea (a2,d7.w*2),a2
  1508.  ext.l d0
  1509.  addq #1,d0
  1510.  
  1511.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1512.  move.w (a0)+,d4
  1513.  swap d7
  1514.  clr.w d7
  1515.  swap d4
  1516.  clr.w d4
  1517.  sub.l d4,d7
  1518.  divs.l d0,d7
  1519.  move.l d7,a5
  1520.  
  1521.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1522.  swap d7
  1523.  clr.w d7
  1524.  move.w (a0)+,d5
  1525.  swap d5
  1526.  clr.w d5
  1527.  sub.l d5,d7
  1528.  divs.l d0,d7
  1529.  move.l d7,a6
  1530.  
  1531.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1532.  swap d7
  1533.  clr.w d7
  1534.  move.w (a0)+,d6
  1535.  swap d6
  1536.  clr.w d6
  1537.  sub.l d6,d7
  1538.  divs.l d0,d7
  1539.  move.l d7,a3
  1540.  
  1541.  move.l a0,-(a7)
  1542.  move.l d1,-(a7)
  1543.  move.l #TEXTURES,a0
  1544.  move.w TEXTUREADD,d7
  1545.  bge.s .okaddtes3
  1546.  and.w #$7fff,d7
  1547.  add.l #65536*4,a0
  1548. .okaddtes3:
  1549.  ext.l d7
  1550. ; add.l d7,d7
  1551.  asl.l #8,d7
  1552.  add.l d7,a0
  1553.  move.w #0,d7
  1554.  
  1555.  subq #1,d0
  1556.  
  1557. ; d0=xdist
  1558. ; d4=U  a5=DU
  1559. ; d5=V  a6=DV
  1560. ; d6=Y  a3=DY
  1561.  moveq #0,d1
  1562.  
  1563.  swap d6
  1564.  
  1565. PLOTADOT:
  1566.  
  1567. .across
  1568.  
  1569. ; swap d4
  1570. ; swap d5
  1571. ; move.w d4,d2
  1572. ; lsl.w #8,d2
  1573. ; swap d4
  1574. ; move.b d5,d2
  1575. ; add.l a5,d4
  1576. ; swap d5
  1577. ; add.l a6,d5
  1578.  
  1579.  
  1580. ; swap d6
  1581. ; move.b (a2)+,d1
  1582. ; tst.b 1(a0,d2.w*8)
  1583. ; beq.s .noplottt
  1584.  move.b d6,(a2)
  1585.  addq #2,a2
  1586.  
  1587.  dbra d0,.across
  1588.  bra.s .plaster
  1589.  
  1590. .noplottt:
  1591.  addq #1,a2
  1592.  dbra d0,.across
  1593.  
  1594. .plaster:
  1595.  
  1596.  move.l (a7)+,d1
  1597.  move.l (a7)+,a0
  1598.  move.l (a7)+,a2
  1599.  
  1600. .noline:
  1601.  add.w #512,a2
  1602.  
  1603.  swap d1
  1604.  dbra d1,DOAHORLINESHAD
  1605.  
  1606. NOPOLYGONSHAD:
  1607.  
  1608. SHADpolybehind:
  1609.  rts
  1610.  
  1611.  
  1612. ************************************************
  1613.  
  1614. LU: dc.w 0
  1615. LV: dc.w 0
  1616. RU: dc.w 0
  1617. RV: dc.w 0
  1618.     
  1619. SIMPLESHADLINE:
  1620.  move.l #SHADOWPTS,a1
  1621.  
  1622.  move.l #UVCOORDS,a2
  1623.  move.w (a2,d0.w*4),LU
  1624.  move.w 2(a2,d0.w*4),LV
  1625.  move.w (a2,d1.w*4),RU
  1626.  move.w 2(a2,d1.w*4),RV
  1627.  
  1628.  muls #10,d0
  1629.  muls #10,d1
  1630.  move.w 8(a1,d0.w),d2        ;fz
  1631.  move.w 8(a1,d1.w),d7        ;sz
  1632.  ext.l d2
  1633.  ext.l d7
  1634.  
  1635.  move.l #LEFTUVS,a3
  1636.  asr.l #2,d2
  1637.  asr.l #2,d7
  1638.  cmp.l d2,d7 
  1639.  beq .noline
  1640.  
  1641.  bgt.s .lineonright
  1642. .lineonleft:
  1643.  move.l #RIGHTUVS,a3
  1644.  exg d0,d1
  1645.  exg d2,d7
  1646.  
  1647.  move.l LU,d5
  1648.  move.l RU,LU
  1649.  move.l d5,RU
  1650.  
  1651. .lineonright:
  1652.  
  1653.  sub.w d2,d7
  1654.  add.w #128,d2
  1655.  lea (a3,d2.w*8),a3
  1656.  
  1657.  move.w d7,YDIFF
  1658.  
  1659.  move.l (a1,d0.w),d3        ;fx
  1660.  move.l (a1,d1.w),d7        ;sx
  1661.  
  1662.  asl.l #5,d3
  1663.  asl.l #5,d7
  1664.  
  1665.  sub.l d3,d7
  1666.  divs.l YDIFF-2,d7
  1667.  move.l d7,a0    ; dx
  1668.  
  1669.  move.l #ROTATEDPTS,a1
  1670.  
  1671.  move.w LU,d4
  1672.  move.w LV,d5
  1673.  move.w RU,d6
  1674.  move.w RV,d7
  1675.  
  1676.  sub.w d4,d6
  1677.  sub.w d5,d7
  1678.  swap d4
  1679.  swap d5
  1680.  clr.w d4
  1681.  clr.w d5
  1682.  swap d6
  1683.  swap d7
  1684.  clr.w d6
  1685.  clr.w d7
  1686.  
  1687.  divs.l YDIFF-2,d6
  1688.  divs.l YDIFF-2,d7
  1689.  
  1690.  move.l d6,a4
  1691.  move.l d7,a5
  1692.  
  1693. ; asl.w #4,d0
  1694. ; asl.w #4,d1
  1695.  
  1696.  move.l 4(a1,d0.w),d6
  1697.  move.l 4(a1,d1.w),d7
  1698.  asl.l #5,d6
  1699.  asl.l #5,d7
  1700.  sub.l d6,d7
  1701.  divs.l YDIFF-2,d7
  1702.  exg d7,a6
  1703.  exg d7,d6
  1704.  
  1705.  move.l YDIFF-2,d1
  1706.  subq #1,d1
  1707.  
  1708. ; d3=x a0=dx
  1709. ; d4=u a4=du
  1710. ; d5=v a5=dv
  1711. ; d7=y a6=dy
  1712. ; d1=dz
  1713.  
  1714.  move.w HIGHPOLY,d7
  1715.  
  1716.  add.l #128*65536,d3
  1717. ; add.l #128*65536,d7
  1718.  
  1719. .PUTINLINE:
  1720.  swap d3
  1721.  move.w d3,(a3)+
  1722.  swap d3
  1723.  add.l a0,d3
  1724.  swap d4
  1725.  move.w d4,(a3)+
  1726.  swap d4
  1727.  swap d5
  1728.  add.l a4,d4
  1729.  move.w d5,(a3)+
  1730.  swap d5
  1731.  add.l a5,d5
  1732. ; swap d7
  1733.  move.w d7,(a3)+
  1734. ; swap d7
  1735. ; add.l a6,d7
  1736.  dbra d1,.PUTINLINE
  1737.  
  1738. .noline:
  1739.  rts
  1740.  
  1741. BCOS: dc.w 0
  1742. BSIN: dc.w 0
  1743. ACOS: dc.w 0
  1744. ASIN: dc.w 0
  1745. FSX: dc.w 0
  1746. FSY: dc.w 0
  1747. SSX: dc.w 0
  1748. SSY: dc.w 0
  1749.  
  1750. **************************************************
  1751.  
  1752. doapoly:
  1753.  
  1754.  move.w (a1)+,d7    ; sides to draw
  1755.  addq #2,a1        ; avoid holes
  1756.  move.w 12(a1,d7.w*4),pregour
  1757.  
  1758.  move.l #ONSCREENPTS,a3
  1759.  
  1760.  move.w (a1),d0
  1761.  move.w 4(a1),d1
  1762.  move.w 8(a1),d2
  1763.  move.w 2(a3,d0.w*4),d3
  1764.  move.w 2(a3,d1.w*4),d4
  1765.  move.w 2(a3,d2.w*4),d5
  1766.  move.w (a3,d0.w*4),d0
  1767.  move.w (a3,d1.w*4),d1
  1768.  move.w (a3,d2.w*4),d2
  1769.  
  1770.  sub.w d1,d0
  1771.  sub.w d1,d2
  1772.  sub.w d4,d3
  1773.  sub.w d4,d5
  1774.  muls d3,d2
  1775.  muls d5,d0
  1776.  sub.l d0,d2
  1777.  ble polybehind
  1778.  
  1779. ; Now we must rotate the polygons coordinates in
  1780. ; the specular map so that the texturemap is vertical
  1781. ; relative to the specular map and so that bump-
  1782. ; mapping can take place unerroneously!
  1783.  
  1784. ; movem.l d0-d7/a0-a6,-(a7)
  1785.  
  1786.  move.w #0,BCOS
  1787.  move.w #128*128,ACOS
  1788.  move.w #0,BSIN
  1789.  move.w #0,ASIN
  1790.  
  1791. ; bra .NOROT
  1792.  
  1793. ; First calculate angle B
  1794.  
  1795.  move.l #SPECBRIGHTS,a3
  1796.  
  1797.  move.w (a1),d0
  1798.  moveq #0,d5
  1799.  moveq #0,d6
  1800.  move.b (a3,d0.w*4),d5
  1801.  move.b 1(a3,d0.w*4),d6
  1802.  move.w 4(a1),d0
  1803.  moveq #0,d3
  1804.  moveq #0,d4
  1805.  move.b (a3,d0.w*4),d3
  1806.  move.b 1(a3,d0.w*4),d4
  1807.  sub.w d5,d3
  1808.  sub.w d6,d4
  1809.  
  1810.  move.w d3,d1
  1811.  move.w d4,d2
  1812.  muls d1,d1
  1813.  muls d2,d2
  1814.  add.l d1,d2
  1815.  jsr CALCSQROOT
  1816.  tst.w d2
  1817.  beq .NOROT
  1818.  
  1819.  ext.l d3
  1820.  asl.l #7,d3
  1821.  ext.l d4
  1822.  asl.l #7,d4
  1823.  divs d2,d3
  1824.  divs d2,d4
  1825.  move.w d3,BCOS
  1826.  neg.w d4
  1827.  move.w d4,BSIN
  1828.  
  1829.  moveq #0,d3
  1830.  move.b 2(a1),d3
  1831.  moveq #0,d4
  1832.  move.b 3(a1),d4
  1833.  moveq #0,d5
  1834.  move.b 2+4(a1),d5
  1835.  moveq #0,d6
  1836.  move.b 3+4(a1),d6
  1837.  
  1838.  sub.w d3,d5
  1839.  sub.w d4,d6
  1840.  
  1841.  move.w d5,d1
  1842.  move.w d6,d2
  1843.  muls d1,d1
  1844.  muls d2,d2
  1845.  add.l d1,d2
  1846.  jsr CALCSQROOT
  1847.  tst.w d2
  1848.  beq.s .NOROT
  1849.  
  1850.  ext.l d5
  1851.  ext.l d6
  1852.  asl.l #7,d5
  1853.  asl.l #7,d6
  1854.  divs d2,d5
  1855.  divs d2,d6
  1856.  move.w d5,ACOS
  1857.  neg.w d6
  1858.  move.w d6,ASIN
  1859.  
  1860.  move.w ACOS,d4
  1861.  move.w ASIN,d5
  1862.  move.w d4,d2
  1863.  move.w d5,d3
  1864.  muls BCOS,d2
  1865.  muls BSIN,d3
  1866.  sub.l d3,d2
  1867.  muls BSIN,d4
  1868.  muls BCOS,d5
  1869.  add.l d5,d4
  1870.  move.w d2,ACOS
  1871.  move.w d4,ASIN
  1872.  
  1873. .NOROT:
  1874. ; movem.l (a7)+,d0-d7/a0-a6
  1875.  
  1876.  move.l #ONSCREENPTS,a3
  1877.  
  1878.  move.w #20000,d4    ; top
  1879.  move.w #-20000,d5    ; bottom
  1880.  move.l #UVCOORDS,a4
  1881.  
  1882.  move.l a1,a0
  1883.  
  1884. putinlines:
  1885.  move.w (a1),d0
  1886.  move.w 4(a1),d1
  1887.  
  1888.  moveq #0,d2
  1889.  move.b 2(a1),d2    ; one end U
  1890.  move.w d2,2(a4,d0.w*4)
  1891.  move.b 3(a1),d2    ; one end V
  1892.  move.w d2,(a4,d0.w*4)
  1893.  move.b 6(a1),d2    ; two end U
  1894.  move.w d2,2(a4,d1.w*4)
  1895.  move.b 7(a1),d2    ; two end V
  1896.  move.w d2,(a4,d1.w*4)
  1897.  
  1898.  move.w 2(a3,d0.w*4),d2    ; Z
  1899.  
  1900.  cmp.w d2,d4
  1901.  ble.s .oktop
  1902.  move.w d2,d4
  1903. .oktop
  1904.  cmp.w d2,d5
  1905.  bge.s .okbot
  1906.  move.w d2,d5
  1907. .okbot
  1908.  
  1909.  movem.l a0/d4/d5/d7/a1/a3/a4,-(a7)
  1910.  jsr SIMPLECALCLINE
  1911.  movem.l (a7)+,a0/d4/d5/d7/a1/a3/a4
  1912.  addq #4,a1
  1913.  dbra d7,putinlines
  1914.  addq #4,a1 
  1915.  
  1916.  move.w (a1)+,TEXTUREADD
  1917.  
  1918.  asr.w #2,d4
  1919.  asr.w #2,d5
  1920. ; add.w #128,d4
  1921. ; add.w #128,d5
  1922.  move.w d4,TOPLINE
  1923.  move.w d5,BOTLINE
  1924.   
  1925.  move.l #SHADOWPTS,a1
  1926.  move.w (a0),d0
  1927.  move.w 4(a0),d1
  1928.  move.w 8(a0),d2
  1929.  
  1930. CHECKVALS:
  1931.  
  1932.  muls #10,d0
  1933.  muls #10,d1
  1934.  muls #10,d2
  1935.  
  1936.  lea (a1,d0.w),a0
  1937.  lea (a1,d2.w),a2
  1938.  lea (a1,d1.w),a1
  1939.  
  1940.  move.l (a0),d3
  1941.  sub.l (a1),d3
  1942.  asr.l #8,d3
  1943.  asr.l #1,d3
  1944.  move.l 4(a0),d4
  1945.  sub.l 4(a1),d4
  1946.  asr.l #8,d4
  1947.  asr.l #1,d4
  1948.  move.w 8(a0),d5
  1949.  sub.w 8(a1),d5
  1950.  
  1951.  move.w d3,d6
  1952.  muls d6,d6
  1953.  move.w d4,d7
  1954.  muls d7,d7
  1955.  add.l d7,d6
  1956.  move.w d5,d7
  1957.  muls d7,d7
  1958.  add.l d7,d6
  1959.  move.l d6,d2
  1960.  jsr CALCSQROOT
  1961.  move.w d2,LEN1
  1962.  
  1963.  move.l (a2),d0
  1964.  sub.l (a1),d0
  1965.  asr.l #8,d0
  1966.  asr.l #1,d0
  1967.  move.l 4(a2),d1
  1968.  sub.l 4(a1),d1
  1969.  asr.l #8,d1
  1970.  asr.l #1,d1
  1971.  move.w 8(a2),d2
  1972.  sub.w 8(a1),d2
  1973.  
  1974.  muls d2,d3
  1975.  muls d0,d5
  1976.  sub.l d3,d5    ; length
  1977.  muls.l #$4c,d5
  1978.  
  1979.  muls d0,d0
  1980.  muls d1,d1
  1981.  muls d2,d2
  1982.  add.l d0,d1
  1983.  add.l d1,d2
  1984.  jsr CALCSQROOT
  1985.  
  1986.  muls LEN1,d2
  1987.  bgt.s .ok
  1988.  moveq #1,d2
  1989. .ok
  1990.  
  1991.  divs.l d2,d5
  1992.  
  1993.  add.l #16,d5
  1994.  
  1995.  tst.l d5
  1996.  ble.s .okbr
  1997.  moveq #0,d5
  1998. .okbr:
  1999.  add.w #$5c,d5
  2000.  bge.s .okbr2
  2001.  moveq #0,d5
  2002. .okbr2:
  2003.  
  2004.  move.w d5,d0
  2005.  
  2006.  asl.w #8,d5
  2007.  move.w d5,BRIGHTNESS+2
  2008.  
  2009.  sub.w #$5c,d0
  2010.  asr.w #1,d0
  2011.  add.w #$5c,d0
  2012.  asl.w #8,d0
  2013.  move.w d0,BRIGHTNESS
  2014.  
  2015.  
  2016. ***********************************************
  2017. * Draw the polygon (shadowed).
  2018.  
  2019.  move.l FASTBUFFER,a2
  2020.  move.l #LEFTUVS,a0
  2021.  move.w TOPLINE,d0
  2022.  move.w BOTLINE,d1
  2023.  sub.w d0,d1
  2024.  asl.w #4,d0
  2025.  add.w d0,a0
  2026.  muls #(320/16),d0
  2027.  add.l d0,a2    ; pointer to screen line.
  2028.  
  2029.  subq #1,d1
  2030.  blt NOPOLYGON
  2031.  
  2032.  tst.b Gouraud
  2033.  bne GOURPOLY
  2034.  
  2035. DOAHORLINE:
  2036.  swap d1
  2037.  
  2038.  move.w RIGHTUVS-LEFTUVS(a0),d0
  2039.  move.w (a0)+,d7
  2040.  asr.w #2,d0
  2041.  asr.w #2,d7
  2042.  sub.w d7,d0
  2043.  bge.s .okflibble
  2044.  
  2045.  add.w #14,a0
  2046.  add.w #320,a2
  2047.  swap d1
  2048.  dbra d1,DOAHORLINE
  2049.  bra NOPOLYGON
  2050.  
  2051. .okflibble:
  2052.  
  2053.  move.l a2,-(a7)
  2054.  
  2055.  add.w d7,a2
  2056.  ext.l d0
  2057.  addq #1,d0
  2058.  
  2059.  move.l RIGHTUVS-LEFTUVS(a0),d7
  2060.  move.l (a0)+,d2 
  2061.  sub.l d2,d7
  2062.  divs.l d0,d7
  2063.  move.l d7,a1
  2064.  
  2065.  
  2066.  
  2067.  
  2068.  
  2069.  
  2070.  
  2071.  
  2072.  
  2073.  
  2074.  
  2075.  
  2076.  
  2077.  
  2078.  
  2079.  
  2080.  
  2081.  
  2082.  move.l RIGHTUVS-LEFTUVS(a0),d7 
  2083.  move.l (a0)+,d3 
  2084.  
  2085.  
  2086.  
  2087.  
  2088.  
  2089.  
  2090.  
  2091.  
  2092.  
  2093.  
  2094.  
  2095.  
  2096.  
  2097.  
  2098.  
  2099.  
  2100.  
  2101.  
  2102.  
  2103.  
  2104.  sub.l d3,d7
  2105.  divs.l d0,d7
  2106.  move.l d7,a4
  2107.  
  2108.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2109.  move.w (a0)+,d4
  2110.  swap d7
  2111.  clr.w d7
  2112.  swap d4
  2113.  clr.w d4
  2114.  sub.l d4,d7
  2115.  divs.l d0,d7
  2116.  move.l d7,a5
  2117.  
  2118.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2119.  swap d7
  2120.  clr.w d7
  2121.  move.w (a0)+,d5
  2122.  swap d5
  2123.  clr.w d5
  2124.  sub.l d5,d7
  2125.  divs.l d0,d7
  2126.  move.l d7,a6
  2127.  
  2128.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2129.  swap d7
  2130.  clr.w d7
  2131.  move.w (a0)+,d6
  2132.  swap d6
  2133.  clr.w d6
  2134.  sub.l d6,d7
  2135.  divs.l d0,d7
  2136.  move.l d7,a3
  2137.  
  2138.  move.l a0,-(a7)
  2139.  move.l d1,-(a7)
  2140.  move.l #TEXTURES,a0
  2141.  move.w TEXTUREADD,d7
  2142.  bge.s .okaddtes3
  2143.  and.w #$7fff,d7
  2144.  add.l #65536*4,a0
  2145. .okaddtes3:
  2146.  ext.l d7
  2147. ; add.l d7,d7
  2148.  asl.l #8,d7
  2149.  add.l d7,a0
  2150.  move.w #0,d7
  2151.  
  2152.  move.l BRIGHTNESS,a6
  2153.  
  2154.  move.l a7,SAVESTACK
  2155.  move.l #SHADOWBUFFER,a7
  2156.  
  2157.  subq #1,d0
  2158.  
  2159. ; d0=xdist
  2160. ; d2=U    a1=DU
  2161. ; d3=V  a4=DV
  2162. ; d4=X  a5=DX
  2163. ; d5=Y  a6=DY
  2164. ; d6=Z  a3=DZ
  2165.  move.w HIGHPOLY,d5
  2166.  
  2167.  moveq #0,d1
  2168.  swap d6
  2169.  move.w d6,d1
  2170.  lsl.w #8,d1
  2171.  swap d4
  2172.  move.b d4,d1
  2173.  swap d4
  2174.  swap d6
  2175.  
  2176.  moveq #0,d7
  2177.  move.b (a7,d1.l),d7
  2178.  cmp.w d7,d5
  2179.  ble INTHELIGHT
  2180.  bra.s INTHEDARK
  2181.  
  2182. PENUMBRA:
  2183.  moveq #0,d1
  2184.  swap d6
  2185.  move.w d6,d1
  2186.  lsl.w #8,d1
  2187.  swap d4
  2188.  move.b d4,d1
  2189.  swap d4
  2190.  swap d6
  2191.  add.l a5,d4
  2192.  add.l a3,d6
  2193.  
  2194.      moveq #0,d7
  2195.  move.b (a7,d1.l),d7
  2196.  cmp.w d7,d5
  2197.  ble INTOLIGHT
  2198.  bra.s INTODARK
  2199.  
  2200.  
  2201. INTHEDARK:
  2202.  moveq #0,d1
  2203.  swap d6
  2204.  move.w d6,d1
  2205.  lsl.w #8,d1
  2206.  swap d4
  2207.  move.b d4,d1
  2208.  swap d4
  2209.  swap d6
  2210.  add.l a5,d4
  2211.  add.l a3,d6
  2212.  
  2213.  moveq #0,d7
  2214.  move.b (a7,d1.l),d7
  2215.  cmp.w d7,d5
  2216.  ble.s INTOPENUM
  2217. INTODARK:
  2218.  move.w #$5c00,d7
  2219.  swap d2
  2220.  move.w d2,d1
  2221.  asl.w #8,d1
  2222.  swap d3
  2223.  move.b d3,d1
  2224.  swap d2
  2225.  swap d3
  2226.  add.l a1,d2
  2227.  add.l a4,d3
  2228.  
  2229. ; move.b (a0,d1.w*4),d7
  2230. ; beq.s .noplottt
  2231.  
  2232.  move.b TEXTUREPAL-256(pc,d7.w),(a2)+
  2233.  dbra d0,INTHEDARK
  2234.  bra.s PASTAC 
  2235.  
  2236. .noplottt
  2237.  addq #1,a2
  2238.  dbra d0,INTHEDARK
  2239.  bra.s PASTAC
  2240.  
  2241. INTOPENUM:
  2242.  move.l a6,d7
  2243.  swap d7
  2244.  swap d2
  2245.  move.w d2,d1
  2246.  asl.w #8,d1
  2247.  swap d3
  2248.  move.b d3,d1
  2249.  swap d2
  2250.  swap d3
  2251.  add.l a1,d2
  2252.  add.l a4,d3
  2253.  
  2254. ; move.b (a0,d1.w*4),d7
  2255. ; beq.s .noplottt
  2256.  
  2257.  move.b TEXTUREPAL(pc,d7.w),(a2)+
  2258.  dbra d0,PENUMBRA
  2259.  bra.s PASTAC 
  2260.  
  2261. .noplottt
  2262.  addq #1,a2
  2263.  dbra d0,PENUMBRA
  2264.  bra.s PASTAC
  2265.  
  2266. INTHELIGHT:
  2267.  
  2268.  moveq #0,d1
  2269.  swap d6
  2270.  move.w d6,d1
  2271.  lsl.w #8,d1
  2272.  swap d4
  2273.  move.b d4,d1
  2274.  swap d4
  2275.  swap d6
  2276.  add.l a5,d4
  2277.  add.l a3,d6
  2278.  
  2279.  moveq #0,d7
  2280.  move.b (a7,d1.l),d7
  2281.  cmp.w d7,d5
  2282.  bgt.s INTOPENUM
  2283. INTOLIGHT:
  2284.  move.w a6,d7
  2285.  swap d2
  2286.  move.w d2,d1
  2287.  asl.w #8,d1
  2288.  swap d3
  2289.  move.b d3,d1
  2290.  swap d2
  2291.  swap d3
  2292.  add.l a1,d2
  2293.  add.l a4,d3
  2294.  
  2295. ; move.b (a0,d1.w*4),d7
  2296. ; beq.s .noplottt
  2297.  
  2298.  move.b TEXTUREPAL(pc,d7.w),(a2)+
  2299.  dbra d0,INTHELIGHT
  2300.  bra.s PASTAC 
  2301.  
  2302. .noplottt:
  2303.  addq #1,a2
  2304.  dbra d0,INTHELIGHT
  2305.  
  2306. PASTAC
  2307.  
  2308.  move.l SAVESTACK,a7
  2309.  
  2310.  move.l (a7)+,d1
  2311.  move.l (a7)+,a0
  2312.  move.l (a7)+,a2
  2313.  
  2314. .noline:
  2315.  add.w #320,a2
  2316.  
  2317.  swap d1
  2318.  dbra d1,DOAHORLINE
  2319.  
  2320. NOPOLYGON:
  2321. polybehind:
  2322.  rts
  2323.  
  2324. TEXTUREPAL:
  2325.  
  2326. SAVESTACK: dc.l 0
  2327. HIGHPOLY: dc.w 0
  2328. LEN1: dc.w 0
  2329. BRIGHTNESS: dc.l 0
  2330. TRANSTEXT: dc.w 0
  2331. AANG: dc.w 0
  2332. BANG: dc.w 0
  2333. CANG: dc.w 0
  2334. DANG: dc.w 0
  2335.  
  2336.  
  2337.  
  2338. GOURPOLY: 
  2339.  
  2340. DOAHORLINEGOUR:
  2341.  swap d1
  2342.  
  2343.  move.w RIGHTUVS-LEFTUVS(a0),d0
  2344.  move.w (a0)+,d7
  2345.  asr.w #2,d0
  2346.  asr.w #2,d7
  2347.  sub.w d7,d0
  2348.  bge.s .okflibble
  2349.  
  2350.  add.w #14,a0
  2351.  add.w #320,a2
  2352.  swap d1
  2353.  dbra d1,DOAHORLINEGOUR
  2354.  bra NOPOLYGON
  2355.  
  2356. .okflibble:
  2357.  
  2358.  move.l a2,-(a7)
  2359.  
  2360.  add.w d7,a2
  2361.  ext.l d0
  2362.  addq #1,d0
  2363.  
  2364.  move.b RIGHTUVS-LEFTUVS(a0),d3
  2365.  move.b (a0),d2
  2366.  ext.w d3
  2367.  ext.w d2
  2368.  
  2369.  tst.w d2
  2370.  blt .bothtowards
  2371.  
  2372. ; bgt .firstaway
  2373.  tst.w d3
  2374.  blt .bothtowards
  2375.  bra .bothaway
  2376.  
  2377. .firsttowards:
  2378.  tst.w d3
  2379.  ble .bothtowards
  2380.  
  2381. ; First is towards and second away...
  2382.  
  2383.  move.w d0,d7    ; total length
  2384.  move.w d0,d6
  2385.  neg.w d2
  2386.  add.w d2,d3
  2387.  muls d2,d6
  2388.  divs d3,d6    ; length of first bit
  2389.  sub.w d6,d7    ; length of second bit
  2390.  move.w d6,FIRSTLEN
  2391.  move.w d7,LASTLEN
  2392.  
  2393.  tst.w FIRSTLEN
  2394.  beq .bothaway
  2395.  tst.w LASTLEN
  2396.  beq .bothtowards
  2397.  
  2398.  moveq #0,d2
  2399.  moveq #0,d3
  2400.  moveq #0,d4
  2401.  moveq #0,d5
  2402.  move.b 6(a0),d2
  2403.  move.b 7(a0),d3
  2404.  
  2405.  move.w d2,FIRSTU
  2406.  move.w d3,FIRSTV
  2407.  
  2408.  move.w d2,d4
  2409.  move.w d3,d5
  2410.  sub.w #128,d2
  2411.  sub.w #128,d3
  2412.  muls d2,d2
  2413.  muls d3,d3
  2414.  add.l d3,d2
  2415.  jsr CALCSQROOT
  2416.  
  2417.  tst.w d2
  2418.  beq.s .nochng
  2419.  
  2420.  sub.w #128,d4
  2421.  sub.w #128,d5
  2422.  muls #127,d4
  2423.  muls #127,d5
  2424.  divs d2,d4
  2425.  divs d2,d5
  2426.  add.w #128,d4
  2427.  add.w #128,d5
  2428.  
  2429. .nochng:
  2430.  
  2431.  move.w d4,MIDU
  2432.  move.w d5,MIDV
  2433.  
  2434.  move.b 6+RIGHTUVS-LEFTUVS(a0),d4
  2435.  move.b 7+RIGHTUVS-LEFTUVS(a0),d5
  2436.  move.w d4,SECU
  2437.  move.w d5,SECV
  2438.  
  2439.  move.w d4,d2
  2440.  move.w d5,d3
  2441.  
  2442.  sub.w #128,d2
  2443.  sub.w #128,d3
  2444.  muls d2,d2
  2445.  muls d3,d3
  2446.  add.l d3,d2
  2447.  jsr CALCSQROOT
  2448.  
  2449.  tst.w d2
  2450.  beq.s .nochng2
  2451.  
  2452.  sub.w #128,d4
  2453.  sub.w #128,d5
  2454.  muls #127,d4
  2455.  muls #127,d5
  2456.  divs d2,d4
  2457.  divs d2,d5
  2458.  add.w #128,d4
  2459.  add.w #128,d5
  2460.  
  2461. .nochng2:
  2462.  
  2463.  add.w MIDU,d4
  2464.  add.w MIDV,d5
  2465.  asr.w #1,d4
  2466.  asr.w #1,d5
  2467.  move.w d4,MIDU
  2468.  move.w d5,MIDV 
  2469.  
  2470.  move.l RIGHTUVS-LEFTUVS(a0),d7
  2471.  move.l (a0)+,d2 
  2472.  
  2473.  and.l #$ffffff,d2
  2474.  and.l #$ffffff,d7
  2475.  
  2476.  moveq #0,d3
  2477.  moveq #0,d5
  2478.  move.w d2,d3
  2479. ; bge.s .okp1
  2480. ; moveq #0,d3
  2481. ;.okp1
  2482.  move.w d7,d5
  2483. ; bge.s .okp2
  2484. ; moveq #0,d5
  2485. ;.okp2
  2486.  
  2487.  swap d3
  2488.  swap d5
  2489.  sub.l d3,d5
  2490.  divs.l d0,d5
  2491.  asr.l #8,d5
  2492.  move.w d5,RIGHTBRIGHT
  2493.  asr.l #8,d3
  2494.  move.w d3,LEFTBRIGHT
  2495.  
  2496.  clr.w d2
  2497.  clr.w d7
  2498.  sub.l d2,d7
  2499.  asl.l #8,d2
  2500.  divs.l d0,d7
  2501.  asl.l #8,d7
  2502.  
  2503.  move.l RIGHTUVS-LEFTUVS(a0),d6 
  2504.  move.l (a0)+,d3
  2505.  
  2506.  moveq #0,d4
  2507.  moveq #0,d5
  2508.  
  2509. ; move.w d6,d5
  2510. ; move.w d3,d4
  2511. ; move.b #0,d4
  2512. ; move.b #0,d5
  2513.  
  2514.  move.w FIRSTU,d4
  2515.  move.w MIDU,d5
  2516.  lsl.l #8,d4
  2517.  lsl.l #8,d5
  2518.  
  2519.  sub.l d4,d5
  2520.  divs.l FIRSTLEN-2,d5
  2521.  
  2522.  move.w d4,d2
  2523.  move.w d5,d7
  2524.  move.l d7,a1
  2525.  moveq #0,d4
  2526.  moveq #0,d5
  2527.  
  2528. ; move.b d6,d5
  2529. ; move.b d3,d4
  2530.  
  2531. ; swap d5
  2532. ; swap d4
  2533.  
  2534.  move.w FIRSTV,d4
  2535.  move.w MIDV,d5
  2536.  swap d4
  2537.  swap d5
  2538.  
  2539.  sub.l d4,d5
  2540.  divs.l FIRSTLEN-2,d5
  2541.  
  2542.  move.l d5,a3
  2543.  move.l d4,d5
  2544.   
  2545.  clr.w d3
  2546.  clr.w d6
  2547.  sub.l d3,d6
  2548.  divs.l d0,d6
  2549.  move.l d6,a4
  2550.  
  2551.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2552.  move.w (a0)+,d4
  2553.  swap d7
  2554.  clr.w d7
  2555.  swap d4
  2556.  clr.w d4
  2557.  sub.l d4,d7
  2558.  divs.l d0,d7
  2559.  move.l d7,a5
  2560.  
  2561. ; move.w RIGHTUVS-LEFTUVS(a0),d7
  2562. ; swap d7
  2563. ; clr.w d7
  2564.  move.w (a0)+,d7
  2565. ; swap d5
  2566. ; clr.w d5
  2567. ; sub.l d5,d7
  2568. ; divs.l d0,d7
  2569. ; move.l d7,a6
  2570.  
  2571.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2572.  swap d7
  2573.  clr.w d7
  2574.  move.w (a0)+,d6
  2575.  swap d6
  2576.  clr.w d6
  2577.  sub.l d6,d7
  2578.  divs.l d0,d7
  2579.  
  2580.  lsl.l #8,d6
  2581.  lsl.l #8,d7
  2582.  
  2583.  move.w RIGHTBRIGHT,d7
  2584.  move.l d7,a6
  2585.  
  2586.  move.l a0,-(a7)
  2587.  move.l d1,-(a7)
  2588.  move.l #TEXTURES,a0
  2589.  move.w TEXTUREADD,d7
  2590.  bge.s .okaddtes3
  2591.  and.w #$7fff,d7
  2592.  add.l #65536*4,a0
  2593. .okaddtes3:
  2594.  ext.l d7
  2595. ; add.l d7,d7
  2596.  asl.l #8,d7
  2597.  add.l d7,a0
  2598.  move.w #0,d7
  2599.  
  2600.  move.w LEFTBRIGHT,d6
  2601.  
  2602.  subq #1,d0
  2603.  swap d0
  2604.  move.w HIGHPOLY,d0
  2605.  swap d0
  2606.  
  2607.  
  2608. ; d0=xdist
  2609. ; d2=U    a1=DU
  2610. ; d3=V  a4=DV
  2611. ; d4=X  a5=DX
  2612. ; d5=Y  a6=DY
  2613. ; d6=Z  a3=DZ
  2614.  
  2615. ; d0= polynum : polynum : counter : counter
  2616. ; d1= scratch : scratch : scratch : scratch
  2617. ; d2= u : uacc : sv : svacc
  2618. ; d3= v : v : vacc : vacc
  2619. ; d4= x : x : xacc : xacc
  2620. ; d5= su : su : suacc : suacc
  2621. ; d6= z : zacc : bright : brightacc
  2622. ; d7= scratch : scratch : scratch : scratch
  2623.  
  2624. ; a0= textures
  2625. ; a1= uspeed : uspeed : suspeed : suspeed
  2626. ; a2= screen pointer
  2627. ; a3= svspeed : svspeed : svspeed : svspeed
  2628. ; a4= vspeed : vspeed : vspeed : vspeed
  2629. ; a5= xspeed : xspeed : xspeed : xspeed
  2630. ; a6= zspeed : zspeed :brightspeed : brightspeed
  2631. ; a7= shadowmap pointer
  2632.  
  2633.  
  2634.  move.w FIRSTLEN,d0
  2635.  sub.w #1,d0
  2636.  bsr STARTLINE
  2637.  
  2638.  move.l #0,d5
  2639.  move.w #0,d2
  2640.  move.l #0,a3
  2641.  
  2642.  move.w LASTLEN,d0
  2643.  sub.w #1,d0
  2644.  
  2645.  bsr STARTLINE
  2646.  
  2647.  
  2648.  move.l (a7)+,d1
  2649.  move.l (a7)+,a0
  2650.  move.l (a7)+,a2
  2651.  
  2652.  bra .noline
  2653.  
  2654. .firstaway:
  2655.  tst.w d3
  2656.  bge .bothaway
  2657.  
  2658.  
  2659. ; first is away and second is towards...
  2660.  
  2661. ; this really isn't going to work...
  2662.  
  2663.  move.w d0,d7    ; total length
  2664.  move.w d0,d6
  2665.  neg.w d3
  2666.  add.w d2,d3
  2667.  muls d2,d6
  2668.  divs d3,d6    ; length of first bit
  2669.  sub.w d6,d7    ; length of second bit
  2670.  move.w d6,FIRSTLEN
  2671.  move.w d7,LASTLEN
  2672.  
  2673.  tst.w FIRSTLEN
  2674.  beq .bothaway
  2675.  tst.w LASTLEN
  2676.  beq .bothtowards
  2677.  
  2678.  moveq #0,d2
  2679.  moveq #0,d3
  2680.  moveq #0,d4
  2681.  moveq #0,d5
  2682.  move.b 6(a0),d2
  2683.  move.b 7(a0),d3
  2684.  
  2685.  move.w d2,FIRSTU
  2686.  move.w d3,FIRSTV
  2687.  
  2688.  move.w d2,d4
  2689.  move.w d3,d5
  2690.  sub.w #128,d2
  2691.  sub.w #128,d3
  2692.  muls d2,d2
  2693.  muls d3,d3
  2694.  add.l d3,d2
  2695.  jsr CALCSQROOT
  2696.  
  2697.  tst.w d2
  2698.  beq.s .nochng22
  2699.  
  2700.  sub.w #128,d4
  2701.  sub.w #128,d5
  2702.  muls #127,d4
  2703.  muls #127,d5
  2704.  divs d2,d4
  2705.  divs d2,d5
  2706.  add.w #128,d4
  2707.  add.w #128,d5
  2708.  
  2709. .nochng22:
  2710.  
  2711.  move.w d4,MIDU
  2712.  move.w d5,MIDV
  2713.  
  2714.  moveq #0,d4
  2715.  moveq #0,d5
  2716.  move.b 6+RIGHTUVS-LEFTUVS(a0),d4
  2717.  move.b 7+RIGHTUVS-LEFTUVS(a0),d5
  2718.  move.w d4,SECU
  2719.  move.w d5,SECV
  2720.  
  2721.  move.w d4,d2
  2722.  move.w d5,d3
  2723.  
  2724.  sub.w #128,d2
  2725.  sub.w #128,d3
  2726.  muls d2,d2
  2727.  muls d3,d3
  2728.  add.l d3,d2
  2729.  jsr CALCSQROOT
  2730.  
  2731.  tst.w d2
  2732.  beq.s .nochng222
  2733.  
  2734.  sub.w #128,d4
  2735.  sub.w #128,d5
  2736.  muls #127,d4
  2737.  muls #127,d5
  2738.  divs d2,d4
  2739.  divs d2,d5
  2740.  add.w #128,d4
  2741.  add.w #128,d5
  2742.  
  2743. .nochng222:
  2744.  
  2745.  add.w MIDU,d4
  2746.  add.w MIDV,d5
  2747.  asr.w #1,d4
  2748.  asr.w #1,d5
  2749.  move.w d4,MIDU
  2750.  move.w d5,MIDV
  2751.  
  2752.  
  2753.  move.l RIGHTUVS-LEFTUVS(a0),d7
  2754.  move.l (a0)+,d2 
  2755.  
  2756.  and.l #$ffffff,d2
  2757.  and.l #$ffffff,d7
  2758.  
  2759.  moveq #0,d3
  2760.  moveq #0,d5
  2761.  move.w d2,d3
  2762.  move.w d7,d5
  2763.  swap d3
  2764.  swap d5
  2765.  sub.l d3,d5
  2766.  divs.l d0,d5
  2767.  asr.l #8,d5
  2768.  move.w d5,RIGHTBRIGHT
  2769.  asr.l #8,d3
  2770.  move.w d3,LEFTBRIGHT
  2771.  
  2772.  clr.w d2
  2773.  clr.w d7
  2774.  sub.l d2,d7
  2775.  asl.l #8,d2
  2776.  divs.l d0,d7
  2777.  asl.l #8,d7
  2778.  
  2779.  move.l RIGHTUVS-LEFTUVS(a0),d6 
  2780.  move.l (a0)+,d3
  2781.  
  2782.  moveq #0,d4
  2783.  moveq #0,d5
  2784.  
  2785.  move.w MIDU,d4
  2786.  move.w SECU,d5
  2787.  lsl.w #8,d4
  2788.  lsl.w #8,d5
  2789.  
  2790. ; move.w d6,d5
  2791. ; move.w d3,d4
  2792. ; move.b #0,d4
  2793. ; move.b #0,d5
  2794.  
  2795.  sub.l d4,d5
  2796.  divs.l LASTLEN-2,d5
  2797.  
  2798.  move.w d4,d2
  2799.  move.w d5,d7
  2800.  move.l d7,a1
  2801.  moveq #0,d4
  2802.  moveq #0,d5
  2803.  
  2804.  move.w MIDV,d4
  2805.  move.w SECV,d5
  2806.  
  2807.  swap d5
  2808.  swap d4
  2809.  
  2810.  sub.l d4,d5
  2811.  divs.l LASTLEN-2,d5
  2812.  
  2813.  move.l d5,a3
  2814.  move.l d4,d5
  2815.  
  2816.  clr.w d3
  2817.  clr.w d6
  2818.  sub.l d3,d6
  2819.  divs.l d0,d6
  2820.  move.l d6,a4
  2821.  
  2822.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2823.  move.w (a0)+,d4
  2824.  swap d7
  2825.  clr.w d7
  2826.  swap d4
  2827.  clr.w d4
  2828.  sub.l d4,d7
  2829.  divs.l d0,d7
  2830.  move.l d7,a5
  2831.  
  2832. ; move.w RIGHTUVS-LEFTUVS(a0),d7
  2833. ; swap d7
  2834. ; clr.w d7
  2835.  move.w (a0)+,d7
  2836. ; swap d5
  2837. ; clr.w d5
  2838. ; sub.l d5,d7
  2839. ; divs.l d0,d7
  2840. ; move.l d7,a6
  2841.  
  2842.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2843.  swap d7
  2844.  clr.w d7
  2845.  move.w (a0)+,d6
  2846.  swap d6
  2847.  clr.w d6
  2848.  sub.l d6,d7
  2849.  divs.l d0,d7
  2850.  
  2851.  lsl.l #8,d6
  2852.  lsl.l #8,d7
  2853.  
  2854.  move.w RIGHTBRIGHT,d7
  2855.  move.l d7,a6
  2856.  
  2857.  move.l a0,-(a7)
  2858.  move.l d1,-(a7)
  2859.  move.l #TEXTURES,a0
  2860.  move.w TEXTUREADD,d7
  2861.  bge.s .okaddtes4
  2862.  and.w #$7fff,d7
  2863.  add.l #65536*4,a0
  2864. .okaddtes4:
  2865.  ext.l d7
  2866. ; add.l d7,d7
  2867.  asl.l #8,d7
  2868.  add.l d7,a0
  2869.  move.w #0,d7
  2870.  
  2871.  move.w LEFTBRIGHT,d6
  2872.  
  2873.  
  2874.  subq #1,d0
  2875.  swap d0
  2876.  move.w HIGHPOLY,d0
  2877.  swap d0
  2878.  
  2879.  
  2880. ; d0=xdist
  2881. ; d2=U    a1=DU
  2882. ; d3=V  a4=DV
  2883. ; d4=X  a5=DX
  2884. ; d5=Y  a6=DY
  2885. ; d6=Z  a3=DZ
  2886.  
  2887. ; d0= polynum : polynum : counter : counter
  2888. ; d1= scratch : scratch : scratch : scratch
  2889. ; d2= u : uacc : sv : svacc
  2890. ; d3= v : v : vacc : vacc
  2891. ; d4= x : x : xacc : xacc
  2892. ; d5= su : su : suacc : suacc
  2893. ; d6= z : zacc : bright : brightacc
  2894. ; d7= scratch : scratch : scratch : scratch
  2895.  
  2896. ; a0= textures
  2897. ; a1= uspeed : uspeed : suspeed : suspeed
  2898. ; a2= screen pointer
  2899. ; a3= svspeed : svspeed : svspeed : svspeed
  2900. ; a4= vspeed : vspeed : vspeed : vspeed
  2901. ; a5= xspeed : xspeed : xspeed : xspeed
  2902. ; a6= zspeed : zspeed :brightspeed : brightspeed
  2903. ; a7= shadowmap pointer
  2904.  
  2905.  move.w d2,-(a7)
  2906.  move.l d5,-(a7)
  2907.  move.l a3,-(a7)
  2908.  
  2909.  move.w #0,d2
  2910.  move.l #0,d5
  2911.  move.l #0,a3
  2912.  
  2913.  move.w FIRSTLEN,d0
  2914.  subq #1,d0
  2915.  bsr STARTLINE
  2916.  
  2917.  
  2918.  move.l (a7)+,a3
  2919.  move.l (a7)+,d5
  2920.  move.w (a7)+,d2
  2921.  
  2922.  move.w LASTLEN,d0
  2923.  subq #1,d0
  2924.  
  2925.  bsr STARTLINE
  2926.  
  2927.  
  2928.  move.l (a7)+,d1
  2929.  move.l (a7)+,a0
  2930.  move.l (a7)+,a2
  2931.  
  2932.  bra .noline
  2933.  
  2934.  
  2935. .bothaway:
  2936.  
  2937.  move.w #0,6+RIGHTUVS-LEFTUVS(a0)
  2938.  move.w #0,6(a0)
  2939.  
  2940. .bothtowards:
  2941.  
  2942.  move.l RIGHTUVS-LEFTUVS(a0),d7
  2943.  move.l (a0)+,d2 
  2944.  
  2945.  and.l #$ffffff,d2
  2946.  and.l #$ffffff,d7
  2947.  
  2948.  moveq #0,d3
  2949.  moveq #0,d5
  2950.  move.w d2,d3
  2951.  move.w d7,d5
  2952.  swap d3
  2953.  swap d5
  2954.  sub.l d3,d5
  2955.  divs.l d0,d5
  2956.  asr.l #8,d5
  2957.  move.w d5,RIGHTBRIGHT
  2958.  asr.l #8,d3
  2959.  move.w d3,LEFTBRIGHT
  2960.  
  2961.  clr.w d2
  2962.  clr.w d7
  2963.  sub.l d2,d7
  2964.  asl.l #8,d2
  2965.  divs.l d0,d7
  2966.  asl.l #8,d7
  2967.  
  2968.  move.l RIGHTUVS-LEFTUVS(a0),d6 
  2969.  move.l (a0)+,d3
  2970.  
  2971.  moveq #0,d4
  2972.  moveq #0,d5
  2973.  
  2974.  move.w d6,d5
  2975.  move.w d3,d4
  2976.  move.b #0,d4
  2977.  move.b #0,d5
  2978.  
  2979.  sub.l d4,d5
  2980.  divs.l d0,d5
  2981.  
  2982.  move.w d4,d2
  2983.  move.w d5,d7
  2984.  move.l d7,a1
  2985.  moveq #0,d4
  2986.  moveq #0,d5
  2987.  
  2988.  move.b d6,d5
  2989.  move.b d3,d4
  2990.  
  2991.  swap d5
  2992.  swap d4
  2993.  
  2994.  sub.l d4,d5
  2995.  divs.l d0,d5
  2996.  
  2997.  move.l d5,a3
  2998.  move.l d4,d5
  2999.  
  3000.   
  3001.  clr.w d3
  3002.  clr.w d6
  3003.  sub.l d3,d6
  3004.  divs.l d0,d6
  3005.  move.l d6,a4
  3006.  
  3007.  move.w RIGHTUVS-LEFTUVS(a0),d7
  3008.  move.w (a0)+,d4
  3009.  swap d7
  3010.  clr.w d7
  3011.  swap d4
  3012.  clr.w d4
  3013.  sub.l d4,d7
  3014.  divs.l d0,d7
  3015.  move.l d7,a5
  3016.  
  3017. ; move.w RIGHTUVS-LEFTUVS(a0),d7
  3018. ; swap d7
  3019. ; clr.w d7
  3020.  move.w (a0)+,d7
  3021. ; swap d5
  3022. ; clr.w d5
  3023. ; sub.l d5,d7
  3024. ; divs.l d0,d7
  3025. ; move.l d7,a6
  3026.  
  3027.  move.w RIGHTUVS-LEFTUVS(a0),d7
  3028.  swap d7
  3029.  clr.w d7
  3030.  move.w (a0)+,d6
  3031.  swap d6
  3032.  clr.w d6
  3033.  sub.l d6,d7
  3034.  divs.l d0,d7
  3035.  
  3036.  lsl.l #8,d6
  3037.  lsl.l #8,d7
  3038.  
  3039.  move.w RIGHTBRIGHT,d7
  3040.  move.l d7,a6
  3041.  
  3042.  move.l a0,-(a7)
  3043.  move.l d1,-(a7)
  3044.  move.l #TEXTURES,a0
  3045.  move.w TEXTUREADD,d7
  3046.  bge.s .okaddtes5
  3047.  and.w #$7fff,d7
  3048.  add.l #65536*4,a0
  3049. .okaddtes5:
  3050.  ext.l d7
  3051.  asl.l #8,d7
  3052.  add.l d7,a0
  3053.  move.w #0,d7
  3054.  
  3055.  move.w LEFTBRIGHT,d6
  3056.  
  3057.  subq #1,d0
  3058.  swap d0
  3059.  move.w HIGHPOLY,d0
  3060.  swap d0
  3061.  
  3062.  
  3063. ; d0=xdist
  3064. ; d2=U    a1=DU
  3065. ; d3=V  a4=DV
  3066. ; d4=X  a5=DX
  3067. ; d5=Y  a6=DY
  3068. ; d6=Z  a3=DZ
  3069.  
  3070. ; d0= polynum : polynum : counter : counter
  3071. ; d1= scratch : scratch : scratch : scratch
  3072. ; d2= u : uacc : sv : svacc
  3073. ; d3= v : v : vacc : vacc
  3074. ; d4= x : x : xacc : xacc
  3075. ; d5= su : su : suacc : suacc
  3076. ; d6= z : zacc : bright : brightacc
  3077. ; d7= scratch : scratch : scratch : scratch
  3078.  
  3079. ; a0= textures
  3080. ; a1= uspeed : uspeed : suspeed : suspeed
  3081. ; a2= screen pointer
  3082. ; a3= svspeed : svspeed : svspeed : svspeed
  3083. ; a4= vspeed : vspeed : vspeed : vspeed
  3084. ; a5= xspeed : xspeed : xspeed : xspeed
  3085. ; a6= zspeed : zspeed :brightspeed : brightspeed
  3086. ; a7= shadowmap pointer
  3087.  
  3088.  bsr STARTLINE
  3089.  
  3090.  move.l (a7)+,d1
  3091.  move.l (a7)+,a0
  3092.  move.l (a7)+,a2
  3093.  
  3094. .noline:
  3095.  add.w #320,a2
  3096.  
  3097.  swap d1
  3098.  dbra d1,DOAHORLINEGOUR
  3099.  
  3100.  bra NOPOLYGON
  3101.  
  3102.  
  3103.  
  3104.  
  3105.  
  3106. *******************************
  3107. STARTLINE:
  3108.  
  3109.  move.l a7,SAVESTACK
  3110.  move.l #SHADOWBUFFER,a7
  3111.  
  3112.  moveq #0,d1
  3113.  swap d6
  3114.  move.w d6,d1
  3115.  swap d4
  3116.  move.b d4,d1
  3117.  swap d4
  3118.  swap d6
  3119.  
  3120.  swap d0
  3121.  moveq #0,d7
  3122.  move.b (a7,d1.l*2),d7
  3123.  cmp.w d7,d0
  3124.  ble .startlight
  3125.  swap d0
  3126.  bra INTHEDARKGOUR
  3127. .startlight:
  3128.  swap d0
  3129.  bra INTHELIGHTGOUR 
  3130. .startdark:
  3131. ***********************************
  3132.  
  3133.  
  3134.  
  3135. PENUMBRAGOUR:
  3136.  moveq #0,d1
  3137.  swap d6
  3138.  move.w d6,d1
  3139.  swap d4
  3140.  move.b d4,d1
  3141.  swap d4
  3142.  swap d6
  3143.  add.l a5,d4
  3144.  add.l a6,d6
  3145.  add.l a3,d5
  3146.  
  3147.  swap d0
  3148.  moveq #0,d7
  3149.  move.b (a7,d1.l*2),d7
  3150.  cmp.w d7,d0
  3151.  ble INTOLIGHTGOUR
  3152.  bra.s INTODARKGOUR
  3153.  
  3154. INTHEDARKGOUR:
  3155.  moveq #0,d1
  3156.  swap d6
  3157.  move.w d6,d1
  3158.  swap d4
  3159.  move.b d4,d1
  3160.  swap d4
  3161.  swap d6
  3162.  add.l a5,d4
  3163.  add.l a6,d6
  3164.  add.l a3,d5
  3165.  
  3166.  swap d0
  3167.  moveq #0,d7
  3168.  move.b (a7,d1.l*2),d7
  3169.  cmp.w d7,d0
  3170.  ble.s INTOPENUMGOUR
  3171. INTODARKGOUR:
  3172.  swap d0
  3173.  move.l #(28*32*256),d7
  3174.  
  3175. ;**********************
  3176. ; moveq #0,d7
  3177. ;********************** 
  3178.  
  3179.  swap d2
  3180.  move.w d2,d1
  3181.  swap d3
  3182.  move.b d3,d1
  3183.  swap d2
  3184.  swap d3
  3185.  add.l a1,d2
  3186.  add.l a4,d3
  3187.  
  3188.  move.b 1(a0,d1.w*4),d7
  3189.  bra DARKplottt
  3190.  
  3191. .noplottt
  3192.  addq #1,a2
  3193.  dbra d0,INTHEDARKGOUR
  3194.  bra DONEDONEBUM
  3195.  
  3196. INTOPENUMGOUR:
  3197.  swap d0
  3198.  move.w d6,d7
  3199.  
  3200.  sub.w #$1c00,d7
  3201.  asr.w #1,d7
  3202.  add.w #$1c00,d7
  3203.  sub.b d7,d7
  3204.  
  3205.  asl.l #5,d7
  3206.  
  3207. *********************
  3208. ; moveq #0,d7
  3209. *****************
  3210.  
  3211.  swap d2
  3212.  move.w d2,d1
  3213.  swap d3
  3214.  move.b d3,d1
  3215.  swap d2
  3216.  swap d3
  3217.  add.l a1,d2
  3218.  add.l a4,d3
  3219.  
  3220.  move.b 1(a0,d1.w*4),d7
  3221.  bra.s PENUMplottt
  3222.  
  3223. .noplottt
  3224.  addq #1,a2
  3225.  dbra d0,PENUMBRAGOUR
  3226.  bra DONEDONEBUM
  3227.  
  3228.  
  3229. INTHELIGHTGOUR:
  3230.  
  3231.  moveq #0,d1
  3232.  swap d6
  3233.  move.w d6,d1
  3234.  swap d4
  3235.  move.b d4,d1
  3236.  swap d4
  3237.  swap d6
  3238.  add.l a5,d4
  3239.  add.l a6,d6
  3240.  add.l a3,d5
  3241.  
  3242.  swap d0
  3243.  moveq #0,d7
  3244.  move.b (a7,d1.l*2),d7
  3245.  cmp.w d7,d0
  3246.  bgt.s INTOPENUMGOUR
  3247. INTOLIGHTGOUR:
  3248.  swap d0
  3249.  
  3250.  swap d2
  3251.  move.w d2,d1
  3252.  swap d3
  3253.  move.b d3,d1
  3254.  swap d2
  3255.  swap d3
  3256.  
  3257.  move.l (a0,d1.w*4),d1        ; SPEC COL OFX OFY
  3258.  
  3259.  add.l a1,d2
  3260.  add.l a4,d3
  3261.  
  3262.  bra.s LIGHTPLOTT
  3263. .noplottt:
  3264.  addq #1,a2
  3265.  dbra d0,INTHELIGHTGOUR
  3266. FLIBBLEY:
  3267.  bra.s DONEDONEBUM
  3268.  
  3269. PENUMplottt
  3270.  move.b GOURPAL(pc,d7.l),(a2)+
  3271.  dbra d0,PENUMBRAGOUR
  3272.  bra.s DONEDONEBUM
  3273.  
  3274. DARKplottt
  3275.  move.b GOURPAL(pc,d7.l),(a2)+
  3276.  dbra d0,INTHEDARKGOUR
  3277.  bra.s DONEDONEBUM
  3278.  
  3279. LIGHTPLOTT:
  3280.  moveq #0,d7
  3281.  move.w d2,d7
  3282.  swap d5
  3283.  move.b d5,d7
  3284.  swap d5
  3285.  add.w d1,d7    ; coord in spec map
  3286.  
  3287.  clr.w d1
  3288.  swap d1
  3289.  
  3290.  move.b 1(a7,d7.l*2),d7    ; specular value of point.
  3291.  lsl.w #8,d7
  3292.  
  3293.  add.w d7,d1
  3294.  tst.w d1
  3295.  bgt.s .okshiney
  3296.  
  3297.  and.w #$ff,d1
  3298.  
  3299. .okshiney
  3300.  
  3301.  move.w d6,d7
  3302.  sub.b d7,d7
  3303.  lsl.l #5,d7
  3304.  add.l d7,d1
  3305.  
  3306.  move.b GOURPAL(pc,d1.l),(a2)+
  3307.  dbra d0,INTHELIGHTGOUR
  3308. DONEDONEBUM:
  3309.  move.l SAVESTACK,a7
  3310.  rts
  3311.  
  3312. GOURPAL: incbin "ab3:includes/bigshadow.pal"
  3313.  
  3314.  
  3315.  
  3316.  
  3317. LEFTSHINEV: dc.l 0
  3318. RIGHTSHINEV: dc.l 0
  3319. LEFTSHINEU: dc.l 0
  3320. RIGHTSHINEU: dc.l 0
  3321.  
  3322. TOPPTR: dc.l 0
  3323. TOPPTNUM: dc.w 0
  3324. BOTPTNUM: dc.w 0
  3325. LEFTBRIGHT: dc.w 0
  3326. RIGHTBRIGHT: dc.l 0
  3327. LEFTSPEC: dc.w 0
  3328. RIGHTSPEC: dc.w 0
  3329.  
  3330. ***********************************************
  3331.     
  3332. SIMPLECALCLINE:
  3333.  move.l #ONSCREENPTS,a1
  3334.  
  3335.  move.w 2(a1,d0.w*4),d2        ;fy
  3336.  move.w 2(a1,d1.w*4),d7        ;sy
  3337.  
  3338.  move.l #RIGHTUVS,a3
  3339.  asr.w #2,d2
  3340.  asr.w #2,d7
  3341.  cmp.w d2,d7 
  3342.  beq .noline
  3343.  
  3344.  bgt.s .lineonright
  3345. .lineonleft:
  3346.  move.l #LEFTUVS,a3
  3347.  exg d0,d1
  3348.  exg d2,d7
  3349.  
  3350. .lineonright:
  3351.  move.w d0,TOPPTNUM
  3352.  move.w d1,BOTPTNUM
  3353.  
  3354.  sub.w d2,d7
  3355.  asl.w #4,d2
  3356.  add.w d2,a3
  3357.  move.l a3,TOPPTR
  3358.  
  3359.  move.w d7,YDIFF
  3360.  
  3361.  move.w (a1,d0.w*4),d3        ;fx
  3362.  move.w (a1,d1.w*4),d7        ;sx
  3363.  
  3364.  sub.w d3,d7
  3365.  swap d3
  3366.  swap d7
  3367.  clr.w d3
  3368.  clr.w d7
  3369.  divs.l YDIFF-2,d7
  3370.  move.l d7,a0    ; dx
  3371.  
  3372.  move.l #UVCOORDS,a2
  3373.  move.l #SHADOWPTS,a1
  3374.  
  3375.  move.w (a2,d0.w*4),d4
  3376.  move.w 2(a2,d0.w*4),d5
  3377.  move.w (a2,d1.w*4),d6
  3378.  move.w 2(a2,d1.w*4),d7
  3379.  
  3380.  sub.w d4,d6
  3381.  sub.w d5,d7
  3382.  swap d4
  3383.  swap d5
  3384.  clr.w d4
  3385.  clr.w d5
  3386.  swap d6
  3387.  swap d7
  3388.  clr.w d6
  3389.  clr.w d7
  3390.  
  3391.  divs.l YDIFF-2,d6
  3392.  divs.l YDIFF-2,d7
  3393.  
  3394.  move.l d6,a4
  3395.  move.l d7,a5
  3396.  
  3397.  muls #10,d0
  3398.  muls #10,d1
  3399.  move.l (a1,d0.w),d6
  3400.  
  3401.  move.l (a1,d1.w),d7
  3402.  asl.l #5,d6
  3403.  asl.l #5,d7
  3404.  sub.l d6,d7
  3405.  divs.l YDIFF-2,d7
  3406.  move.l d7,a2
  3407.  move.l d6,a6
  3408.  
  3409.  move.l 4(a1,d0.w),d6
  3410.  move.l 4(a1,d1.w),d7
  3411.  asl.l #5,d6
  3412.  asl.l #5,d7
  3413.  sub.l d6,d7
  3414.  divs.l YDIFF-2,d7
  3415.  exg d7,a6
  3416.  exg d7,d6
  3417.  
  3418.  move.w 8(a1,d0.w),d0
  3419.  move.w 8(a1,d1.w),d1
  3420.  swap d0
  3421.  swap d1
  3422.  clr.w d0
  3423.  clr.w d1
  3424.  asr.l #2,d0
  3425.  asr.l #2,d1
  3426.  sub.l d0,d1
  3427.  divs.l YDIFF-2,d1
  3428.  move.l d1,a1
  3429.  move.l YDIFF-2,d1
  3430.  subq #1,d1
  3431.  
  3432. ; d3=sx a0=dsx
  3433. ; d4=u a4=du
  3434. ; d5=v a5=dv
  3435. ; d6=x a2=dx
  3436. ; d7=y a6=dy
  3437. ; d0=z a1=dz
  3438. ; d1=dsy
  3439.  
  3440.  
  3441.  add.l #128*65536,d6
  3442.  add.l #128*65536,d7
  3443.  add.l #128*65536,d0
  3444.  
  3445. .PUTINLINE:
  3446.  swap d3
  3447.  move.w d3,(a3)+
  3448.  swap d3
  3449.  add.l a0,d3
  3450.  move.l d4,(a3)+
  3451.  add.l a4,d4
  3452.  move.l d5,(a3)+
  3453.  swap d6
  3454.  add.l a5,d5
  3455.  move.w d6,(a3)+
  3456.  swap d6
  3457.  swap d7
  3458.  add.l a2,d6
  3459.  move.w d7,(a3)+
  3460.  swap d7
  3461.  swap d0
  3462.  add.l a6,d7
  3463.  move.w d0,(a3)+
  3464.  swap d0
  3465.  add.l a1,d0
  3466.  dbra d1,.PUTINLINE
  3467.  
  3468.  tst.b Gouraud
  3469.  beq .noline
  3470.  
  3471.  move.w TOPPTNUM,d0
  3472.  move.w BOTPTNUM,d1
  3473.  move.l TOPPTR,a3
  3474.  moveq #0,d6
  3475.  move.w YDIFF,d6
  3476.  
  3477.  move.l #SPECBRIGHTS,a2
  3478.  
  3479.  moveq #0,d2
  3480.  moveq #0,d3
  3481.  move.b (a2,d0.w*4),d2
  3482.  move.b 1(a2,d0.w*4),d3
  3483.  sub.w #128,d2
  3484.  sub.w #128,d3
  3485.  
  3486.  move.w d2,d4
  3487.  move.w d3,d5
  3488.  muls ACOS,d2
  3489.  muls ASIN,d3
  3490.  sub.l d3,d2
  3491.  muls ASIN,d4
  3492.  muls ACOS,d5
  3493.  add.l d5,d4
  3494.  asl.l #2,d2
  3495.  swap d2
  3496.  asl.l #2,d4
  3497.  swap d4
  3498.  
  3499.  add.w #128,d2
  3500.  add.w #128,d4
  3501.  move.w d2,FSX
  3502.  move.w d4,FSY
  3503.  
  3504.  moveq #0,d2
  3505.  moveq #0,d3
  3506.  move.b (a2,d1.w*4),d2
  3507.  move.b 1(a2,d1.w*4),d3
  3508.  sub.w #128,d2
  3509.  sub.w #128,d3
  3510.  
  3511.  move.w d2,d4
  3512.  move.w d3,d5
  3513.  muls ACOS,d2
  3514.  muls ASIN,d3
  3515.  sub.l d3,d2
  3516.  muls ASIN,d4
  3517.  muls ACOS,d5
  3518.  add.l d5,d4
  3519.  asl.l #2,d2
  3520.  swap d2
  3521.  asl.l #2,d4
  3522.  swap d4
  3523.  
  3524.  add.w #128,d2
  3525.  add.w #128,d4
  3526.  move.w d2,SSX
  3527.  move.w d4,SSY
  3528.  
  3529.  
  3530.  move.w 2(a2,d0.w*4),d2
  3531.  move.w 2(a2,d1.w*4),d3
  3532.  
  3533.  asr.w #4,d2
  3534.  asr.w #4,d3
  3535.  
  3536.  bra .bothtowards
  3537.  
  3538.  tst.w d2
  3539.  blt .firsttowards
  3540.  bgt.s .firstaway
  3541.  
  3542.  tst.w d3
  3543.  ble .bothtowards
  3544.  bra .bothaway
  3545.  
  3546. .firstaway
  3547.  tst.w d3
  3548.  blt .sectowards
  3549.  bra .bothaway
  3550.  
  3551. .firsttowards:
  3552.  tst.w d3
  3553.  ble .bothtowards
  3554.  
  3555. ; First one is towards, the second away.
  3556. ; Do the line in two bits: one heading
  3557. ; from the first point to the rim, the
  3558. ; other heading from the rim to the second
  3559. ; point and flagged as behind.
  3560.  
  3561.  move.w d6,d7    ; total length to draw
  3562.  move.w d2,FIRSTY
  3563.  move.w d3,LASTY
  3564.  
  3565.  neg.w d2
  3566.  add.w d2,d3     ; total change in Y
  3567.  
  3568.  bra.s .onetowards
  3569.  
  3570. .sectowards:
  3571.  move.w d6,d7    ; total length to draw
  3572.  move.w d2,FIRSTY
  3573.  move.w d3,LASTY
  3574.  neg.w d3
  3575.  add.w d2,d3
  3576.  
  3577. .onetowards:
  3578.  
  3579.  muls d2,d6
  3580.  divs d3,d6    ; length of first bit of line.
  3581.  
  3582.  ext.l d6
  3583.  ext.l d7
  3584.  
  3585.  move.w d6,FIRSTLEN
  3586.  sub.l d6,d7
  3587.  move.w d7,LASTLEN
  3588.  
  3589.  add.l d7,d6
  3590.  
  3591.  move.w FIRSTY,d2
  3592.  move.w LASTY,d3
  3593.  swap d2
  3594.  clr.w d2
  3595.  swap d3
  3596.  clr.w d3
  3597.  sub.l d2,d3
  3598.  divs.l d6,d3
  3599.  move.l d3,a6
  3600.  move.l d2,d7
  3601.  
  3602.  moveq #0,d2
  3603.  moveq #0,d3
  3604.  moveq #0,d4
  3605.  moveq #0,d5
  3606.  move.b (a2,d0.w*4),d2
  3607.  move.b 1(a2,d0.w*4),d3
  3608.  
  3609.  move.w d2,FIRSTU
  3610.  move.w d3,FIRSTV
  3611.  
  3612.  move.w d2,d4
  3613.  move.w d3,d5
  3614.  sub.w #128,d2
  3615.  sub.w #128,d3
  3616.  muls d2,d2
  3617.  muls d3,d3
  3618.  add.l d3,d2
  3619.  jsr CALCSQROOT
  3620.  
  3621.  tst.w d2
  3622.  beq.s .nochng
  3623.  
  3624.  sub.w #128,d4
  3625.  sub.w #128,d5
  3626.  muls #127,d4
  3627.  muls #127,d5
  3628.  divs d2,d4
  3629.  divs d2,d5
  3630.  add.w #128,d4
  3631.  add.w #128,d5
  3632.  
  3633. .nochng:
  3634.  
  3635.  move.w d4,MIDU
  3636.  move.w d5,MIDV
  3637.  
  3638.  move.b (a2,d1.w*4),d4
  3639.  move.b 1(a2,d1.w*4),d5
  3640.  move.w d4,SECU
  3641.  move.w d5,SECV
  3642.  
  3643. ; move.w d4,d2
  3644. ; move.w d5,d3
  3645. ;
  3646. ; sub.w #128,d2
  3647. ; sub.w #128,d3
  3648. ; muls d2,d2
  3649. ; muls d3,d3
  3650. ; add.l d3,d2
  3651. ; jsr CALCSQROOT
  3652. ;
  3653. ; tst.w d2
  3654. ; beq.s .nochng2
  3655. ;
  3656. ; sub.w #128,d4
  3657. ; sub.w #128,d5
  3658. ; muls #127,d4
  3659. ; muls #127,d5
  3660. ; divs d2,d4
  3661. ; divs d2,d5
  3662. ; add.w #128,d4
  3663. ; add.w #128,d5
  3664. ; 
  3665. ;.nochng2:
  3666. ;
  3667. ; add.w MIDU,d4
  3668. ; add.w MIDV,d5
  3669. ; asr.w #1,d4
  3670. ; asr.w #1,d5
  3671. ; move.w d4,MIDU
  3672. ; move.w d4,MIDV
  3673.  
  3674.  move.l #NORMBRIGHTS,a2
  3675.  move.w (a2,d0.w*2),d0
  3676.  move.w (a2,d1.w*2),d1
  3677.  
  3678.  sub.w d0,d1
  3679.  swap d1
  3680.  swap d0
  3681.  divs.l d6,d1
  3682.  
  3683.  move.w FIRSTLEN,d6
  3684.  beq.s .nofirstbit
  3685.  ext.l d6
  3686.  
  3687.  moveq #0,d2
  3688.  moveq #0,d3
  3689.  moveq #0,d4
  3690.  moveq #0,d5
  3691.  move.w FIRSTU,d2
  3692.  move.w MIDU,d3
  3693.  move.w FIRSTV,d4
  3694.  move.w MIDV,d5
  3695.  
  3696.  sub.w d2,d3
  3697.  swap d2
  3698.  swap d3
  3699.  divs.l d6,d3
  3700.  move.l d3,a4
  3701.  
  3702.  sub.w d4,d5
  3703.  swap d4
  3704.  swap d5
  3705.  divs.l d6,d5
  3706.  move.l d5,a5
  3707.  
  3708.  bsr DOABITOFLINE
  3709. .nofirstbit:
  3710.  
  3711.  move.w LASTLEN,d6
  3712.  beq.s .nosecbit
  3713.  ext.l d6
  3714.  
  3715.  moveq #0,d2
  3716.  moveq #0,d3
  3717.  moveq #0,d4
  3718.  moveq #0,d5
  3719.  move.w MIDU,d2
  3720.  move.w SECU,d3
  3721.  move.w MIDV,d4
  3722.  move.w SECV,d5
  3723.  
  3724.  sub.w d2,d3
  3725.  swap d2
  3726.  swap d3
  3727.  divs.l d6,d3
  3728.  move.l d3,a4
  3729.  
  3730.  sub.w d4,d5
  3731.  swap d4
  3732.  swap d5
  3733.  divs.l d6,d5
  3734.  move.l d5,a5
  3735.  
  3736.  bsr DOABITOFLINE
  3737. .nosecbit:
  3738.  
  3739.  bra .noline
  3740.  
  3741. .bothaway
  3742.  
  3743. ; Both are away, so do it simply.
  3744.  
  3745. .bothtowards:
  3746.  
  3747. ; Both are towards, so do it simply and flag all
  3748. ; points as towards.
  3749.  
  3750.  swap d2
  3751.  clr.w d2
  3752.  swap d3
  3753.  clr.w d3
  3754.  sub.l d2,d3
  3755.  divs.l d6,d3
  3756.  move.l d3,a6
  3757.  move.l d2,d7
  3758.  
  3759.  moveq #0,d2
  3760.  moveq #0,d3
  3761.  moveq #0,d4
  3762.  moveq #0,d5
  3763. ; move.b (a2,d0.w*4),d2
  3764. ; move.b (a2,d1.w*4),d3
  3765. ; move.b 1(a2,d0.w*4),d4
  3766. ; move.b 1(a2,d1.w*4),d5
  3767.  
  3768.  move.w FSX,d2
  3769.  move.w SSX,d3
  3770.  move.w FSY,d4
  3771.  move.w SSY,d5
  3772.  
  3773.  sub.w d2,d3
  3774.  swap d2
  3775.  swap d3
  3776.  divs.l d6,d3
  3777.  move.l d3,a4
  3778.  
  3779.  sub.w d4,d5
  3780.  swap d4
  3781.  swap d5
  3782.  divs.l d6,d5
  3783.  move.l d5,a5
  3784.  
  3785.  move.l #NORMBRIGHTS,a2
  3786.  move.w (a2,d0.w*2),d0
  3787.  move.w (a2,d1.w*2),d1
  3788.  
  3789.  sub.w d0,d1
  3790.  swap d1
  3791.  swap d0
  3792.  divs.l d6,d1
  3793.  
  3794.  bsr DOABITOFLINE
  3795.  
  3796. .noline:
  3797.  rts
  3798.  
  3799.  DOABITOFLINE:
  3800.  subq #1,d6
  3801.  
  3802. .STICKINGOUR:
  3803.  swap d7
  3804.  move.b d7,2(a3)
  3805.  swap d7
  3806.  add.l a6,d7
  3807.  swap d0
  3808.  move.w d0,4(a3)
  3809.  swap d0
  3810.  add.l d1,d0
  3811.  swap d2
  3812.  move.b d2,8(a3)
  3813.  swap d4
  3814.  move.b d4,9(a3)
  3815.  swap d4
  3816.  adda.w #16,a3
  3817.  swap d2
  3818.  add.l a4,d2
  3819.  add.l a5,d4
  3820.  dbra d6,.STICKINGOUR
  3821.  
  3822.  rts
  3823.  
  3824. FIRSTY: dc.w 0
  3825. LASTY: dc.w 0
  3826. FIRSTU: dc.w 0
  3827. SECU: dc.w 0
  3828. FIRSTV: dc.w 0
  3829. SECV: dc.w 0
  3830.     dc.w 0
  3831. FIRSTLEN: dc.w 0
  3832.     dc.w 0
  3833. LASTLEN: dc.w 0
  3834. MIDU: dc.w 0
  3835. MIDV: dc.w 0
  3836.  
  3837. *!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  3838.  
  3839.  
  3840.  
  3841. ************************************************
  3842. ************************************************
  3843. ************************************************
  3844. ************************************************
  3845. ************************************************
  3846. ************************************************
  3847. ************************************************
  3848. ************************************************
  3849. ************************************************
  3850. ************************************************
  3851. ************************************************
  3852. ************************************************
  3853. ************************************************
  3854. ************************************************
  3855. ************************************************
  3856. ************************************************
  3857. ************************************************
  3858.  
  3859.  move.w d3,TOPLINE
  3860.  move.w d4,BOTLINE
  3861.  
  3862.  
  3863.  
  3864.  
  3865. *********************************************
  3866.  
  3867. CALCSQROOT:
  3868.  tst.l d2
  3869.  beq .oksqr
  3870.  
  3871.  movem.l d0/d1/d3-d7/a0-a6,-(a7)
  3872.  
  3873.  move.w #31,d0
  3874. .findhigh
  3875.  btst d0,d2
  3876.  bne .foundhigh
  3877.  dbra d0,.findhigh
  3878. .foundhigh
  3879.  asr.w #1,d0
  3880.  clr.l d3
  3881.  bset d0,d3
  3882.  move.l d3,d0
  3883.  
  3884.  move.w d0,d1
  3885.  muls d1,d1    ; x*x
  3886.  sub.l d2,d1    ; x*x-a
  3887.  asr.l #1,d1    ; (x*x-a)/2
  3888.  divs d0,d1    ; (x*x-a)/2x
  3889.  sub.w d1,d0    ; second approx
  3890.  bgt .stillnot0
  3891.  move.w #1,d0
  3892. .stillnot0
  3893.  
  3894.  move.w d0,d1
  3895.  muls d1,d1
  3896.  sub.l d2,d1
  3897.  asr.l #1,d1
  3898.  divs d0,d1
  3899.  sub.w d1,d0    ; second approx
  3900.  bgt .stillnot02
  3901.  move.w #1,d0
  3902. .stillnot02
  3903.  
  3904.  move.w d0,d1
  3905.  muls d1,d1
  3906.  sub.l d2,d1
  3907.  asr.l #1,d1
  3908.  divs d0,d1
  3909.  sub.w d1,d0    ; second approx
  3910.  bgt .stillnot03
  3911.  move.w #1,d0
  3912. .stillnot03
  3913.  
  3914.  move.w d0,d2
  3915.  ext.l d2
  3916.  
  3917.  movem.l (a7)+,d0/d1/d3-d7/a0-a6
  3918.  
  3919. .oksqr
  3920.  rts
  3921.  
  3922.  
  3923. **********************************************
  3924. **********************************************
  3925. **********************************************
  3926. **********************************************
  3927. **********************************************
  3928. **********************    ************************
  3929. **********************************************
  3930. **********************************************
  3931. **********************************************
  3932. **********************************************
  3933. **********************************************
  3934. **********************************************
  3935. **********************************************
  3936. **********************************************
  3937. **********************************************
  3938. **********************************************
  3939. **********************************************
  3940. **********************************************
  3941. **********************************************
  3942.  
  3943. TOPLINE: dc.w 0
  3944. BOTLINE: dc.w 0
  3945.  
  3946.  
  3947.  
  3948. **********************************************
  3949. **********************************************
  3950. **********************************************
  3951. **********************************************
  3952. **********************************************
  3953. **********************************************
  3954. **********************************************
  3955. **********************************************
  3956. **********************************************
  3957. **********************************************
  3958. **********************************************
  3959. **********************************************
  3960. **********************************************
  3961. **********************************************
  3962. **********************************************
  3963. **********************************************
  3964. **********************************************
  3965. **********************************************
  3966. **********************************************
  3967.     
  3968.  
  3969.     
  3970.  dc.w 0
  3971. YDIFF: dc.w 0
  3972.  
  3973. SPINAROUND: dc.w 0    
  3974. XCOS: dc.w 0
  3975. YCOS: dc.w 0
  3976. XSIN: dc.w 0
  3977. YSIN: dc.w 0
  3978. XCOS3: dc.w 0
  3979. YCOS3: dc.w 0
  3980. XSIN3: dc.w 0
  3981. YSIN3: dc.w 0
  3982. XCOS2: dc.w 0
  3983. YCOS2: dc.w 0
  3984. XSIN2: dc.w 0
  3985. YSIN2: dc.w 0
  3986. XADD: dc.l 0
  3987. YADD: dc.l 0
  3988. ZADD: dc.l 0
  3989. XOFF: dc.w 0
  3990. YOFF: dc.w 0
  3991. OLDXM: dc.w 0
  3992. OLDYM: dc.w 0
  3993.  
  3994.  
  3995.  
  3996. TEXTUREADD: dc.w 0
  3997.  
  3998.  
  3999. **********************************************************
  4000.  
  4001. UVCOORDS: ds.l 250
  4002. ROTATEDPTS: ds.l 250*4
  4003. SHADOWPTS: ds.l 250*4
  4004. ONSCREENPTS: ds.l 250
  4005.  
  4006. ZOFF: dc.w 768
  4007.  
  4008. LEFTRIGHT: ds.l 256
  4009.  
  4010. POLYGONDATA:
  4011.  ds.b 30000
  4012.  
  4013. OBJNAME: dc.b "ab3:vectobj/testcube",0
  4014.  even
  4015. doslibname: dc.b 'dos.library',0
  4016.  even
  4017. doslib: dc.l 0
  4018.  
  4019. ****************************
  4020.  
  4021. SINETABLE:
  4022.  incbin "ab3:includes/bigsine"
  4023.  
  4024.  
  4025. YANG: dc.w 0
  4026. XANG: dc.w 0
  4027.  
  4028.  
  4029. xmouse: dc.w 0
  4030. ymouse: dc.w 0
  4031.  
  4032. spleen: dc.w 0
  4033. lastspleen: dc.w 0
  4034.  
  4035. COPIEDPAL:
  4036.  dc.w 256,0
  4037.  ds.l 3*256
  4038.  ds.l 10
  4039.  
  4040. SHADOWBUFFER:
  4041. HIGHLIGHT: incbin "work:temp/HIGHLIGHT"
  4042.  
  4043. PALETTEBIT:
  4044. ; incbin "256palette"
  4045. ; dc.w $ffff,$fffe
  4046.  
  4047.  incbin "ab3:shadowtex/shadowpal"
  4048.  
  4049.  include "ab3:source_4000/chunky.s"
  4050.  
  4051. willy: ds.w 48
  4052.  
  4053.  
  4054. PALS:
  4055.  ds.l 2*49
  4056.  
  4057. pregour: dc.b 0
  4058. Gouraud: dc.b 0
  4059.  
  4060. PointAngPtr: dc.l 0
  4061. FRAMENUM: dc.w 0
  4062. PolyAngPtr: dc.l 0
  4063. PtsPtr: dc.l 0
  4064. LinesPtr: dc.l 0
  4065. POINTER_TO_POINTERS: dc.l 0
  4066. FRAME: dc.w 4
  4067. FLIBBLE: dc.w 0
  4068. START_OF_OBJECT: dc.l 0
  4069. num_points: dc.w 0
  4070. num_frames: dc.w 0
  4071. SORTIT: dc.w 0
  4072. PartBuffer: ds.l 2*32
  4073. endparttab:
  4074.  
  4075. x1: dc.w 0
  4076. y1: dc.w 0
  4077. z1: dc.w 0
  4078. x2: dc.w 0
  4079. y2: dc.w 0
  4080. z2: dc.w 0
  4081. x2b: dc.w 0
  4082. y2b: dc.w 0
  4083. z2b: dc.w 0
  4084.  
  4085. x3: dc.w 0
  4086. y3: dc.w 0
  4087. z3: dc.w 0
  4088.  
  4089. l1: dc.w 0
  4090. l2: dc.w 0
  4091.  
  4092. OBJONOFF: dc.l 0
  4093.  
  4094. SAVEHIGHS: ds.w 30
  4095.  
  4096. FASTBUFFER:
  4097.  dc.l fasty
  4098.  
  4099. fasty: ds.b 320*256
  4100.  
  4101. NORMBRIGHTS: ds.w 250
  4102.  
  4103. SPECBRIGHTS:
  4104.  dcb.l 100,31
  4105.  
  4106. ENDNORM:
  4107.  
  4108. LEFTUVS: ds.w 8*256
  4109. RIGHTUVS: ds.w 8*256
  4110.  
  4111. NORMVECTS: ds.w 3*250
  4112.  
  4113. ;WORLD: incbin "ab3:includes/world"
  4114.  
  4115. ;TWEEN: incbin "ab3:includes/tweenbrightfile"
  4116.  
  4117.  
  4118.  
  4119. NEBBIE: incbin "work:temp/nebbieroar"
  4120.     ds.l (192/4)*16
  4121.  
  4122.  SECTION blib,code_f
  4123.  
  4124. TEXTURES:
  4125.  incbin "ab3:shadowtex/shadowmaps"
  4126.  even
  4127.  
  4128.  SECTION BGDROP,code_c
  4129.  
  4130. RAWSCRN:
  4131.  ds.l 2560*8
  4132.